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I.  INTRODUCTION 

A.  PROBLEM  STATEMENT 

This  thesis  deals  with  data  link  level  interconnection  of  remote  Local  Area  Net- 
works (LANs)  through  Critical  Data  Link  (CDL).  The  Critical  Data  Link  (CDL)  is  a 
full-duplex,  jam-resistant,  point-to-point  microwave  communications  system  for  use 
in  imagery  and  signals  intelligence  collection  systems.  The  CDL  system  is  designed 
to  provide  a  communications  protocol  between  two  or  more  Fiber  Distributed  Data 
Interface  Local  Area  Networks  (FDDI  LAN).  While  the  collection  platform  LAN 
is  in  the  form  of  an  airborne  LAN  that  provides  sensor  information,  the  command 
information  is  provided  by  a  ground-based  LAN. 

This  study  is  concerned  with  the  modeling  of  a  CDL  Network  Interface  (NI) 
using  a  commercially  available  network  simulation  program,  MIL  3  Inc.'s  Optimized 
Network  Engineering  Tool  (OPNET). 

B.  SCOPE 

The  scope  of  this  thesis  is  as  follows: 

•  Model  the  interconnection  of  FDDI  LANs  in  the  unique  environment  of  CDL 
deployment. 

•  Evaluate  the  efficiency  of  the  LAN-CDL  interface. 

•  Establish  the  necessary  basis  for  running  multilink  point-to-point  protocol  in 
CDL  deployment. 


C.  BENEFITS 

This  thesis  continues  the  development  of  CDL  related  simulation/modeling 
programs  started  in  [1].  In  that  study,  the  capabilities  of  OPNET's  original  FDDI 
LAN  model  were  enhanced  for  the  use  in  CDL  deployment.  We  have  added: 

•  A  model  of  NI  that  performs  load  balancing  over  multiple  links. 

•  A  CDL  model  with  appropriate  jamming  patterns  that  faithfully  represents 
real  conditions. 

Using  these,  we  have  carried  out  several  simulation  experiments  to  determine 
the  impact  of  load  balancing  and  jamming  on  bit  throughput. 

D.  ORGANIZATION 

This  thesis  is  organized  in  five  chapters.  After  a  brief  introduction,  the  discus- 
sion of  FDDI  LAN  interconnection  through  CDL  is  provided  in  Chapter  II.  Chapter 
III  presents  the  proposed  NI  model  development  in  OPNET.  The  simulation  results 
are  supplied  in  Chapter  IV.  The  conclusions  and  recommendations  for  future  studies 
are  in  Chapter  V. 


II.  INTERCONNECTION  OF  FDDI  LOCAL  AREA 
NETWORKS  THROUGH  CDL 

A.  OVERVIEW 

This  chapter  addresses  the  issues  related  to  the  interconnection  of  FDDI  LANs 
through  the  unique  environment  of  the  CDL.  First,  architectural  alternatives  avail- 
able for  implementing  such  a  connectivity  are  discussed.  Then,  existing  bridging 
mechanisms  are  considered  to  determine  the  ideal  candidate  for  a  NI  for  such  de- 
ployment. The  system  specific  features  of  CDL  are  also  stated  briefly  in  order  to 
justify  the  proposed  NI  architecture. 

B.  ISSUES  IN  HIGH  SPEED  LAN  INTERCONNECTION 

1.      Preliminary 

Local  area  networks  are  limited  in  geography,  traffic  handling  capability, 
and  the  number  of  stations.  A  single  LAN  is  not  likely  to  meet  the  needs  of  many  or- 
ganizations, specifically  military  applications  which  require  sophisticated  command, 
control  and  communication  functions. 

This  makes  the  integration  of  any  LAN  topology  with  other  LANs  through 
a  communication  link  necessary.  The  protocols  used  to  achieve  this  integration  can 
be  at  either  the  network  or  data  link  layers  of  ISO's  Open  Systems  Interconnection 
(OSI)  Model. 

Interconnection  at  the  network  layer  is  achieved  through  routing  devices. 
At  the  data  link  layer  it  is  achieved  using  bridges.  Figure  1  shows  the  layer  hier- 
archies.   In  general,  each  layer  of  an  architecture  is  associated  with  an  additional 
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Figure  1:     Protocols  relayed  by  the  bridges  and  routers. 


level  of  addressing  regardless  of  the  functions  performed  within  a  layer.  Furthermore, 
functional  distinctions  between  them  are  major  factors  to  determine  the  appropriate 
layer  of  interconnection. 

2.     Bridges  versus  Routers 

Bridges  are  Medium  Access  Control  (MAC)  level  store  and  forward  de- 
vices that  are  independent  of  higher  level  protocols.  They  are  transparent  to  commu- 
nicating end  stations.  This  is  particularly  desirable  in  many  high  speed  applications. 
Bridges  make  simple  forwarding  or  filtering  decisions,  based  on  addressing  accord- 
ing to  the  standardized  spanning  tree  algorithm  [2].  This  algorithm  calls  for  the 
automatic  discovery  of  topology  changes  in  the  whole  network  environment. 

In  a  general  bridge  operation,  frames  are  first  received  and  then  condi- 
tionally passed  to  the  other  LAN  depending  on  a  forwarding  decision.  Effectively, 
frames  are  filtered  through  the  bridge.  Thus,  the  frames  having  destination  and 
source  addresses  in  the  same  LAN  are  not  forwarded.  Although  two  LANs  are  con- 
nected in  the  frame  level,  they  do  not  share  each  other's  local  traffic,  but  only  the 
cross  traffic.  The  purpose  of  the  bridge  is  to  allow  hosts  attached  to  other  LANs  to 
communicate  as  if  they  were  in  the  same  LAN. 

In  contrast  to  bridges,  routers  are  network  layer  store  and  forward  devices 
that  rely  on  an  entire  higher  level  protocol  suite,  and  they  are  explicitly  addressed  by 
the  communicating  end  stations  [3].  They  are  capable  of  searching  alternate  routes 
having  lower  transmission  delays  and  using  the  best  path  between  two  nodes  in  the 
network.  Since  they  can  tolerate  failures  in  links  and  stations,  routers  are  designed 
to  enhance  availability  through  the  entire  network  with  the  penalty  of  additional 
processing  overheads  introduced  by  the  network  layer.  Therefore,  bridges  become 
more  important  in  a  high  speed  network  environment. 


Recently,  both  technologies  have  begun  to  converge  such  that  simultane- 
ous operation  of  MAC  level  bridging  and  multiple  protocol  routing  services  are  pro- 
vided in  a  simple  device.  These  devices  are  called  as  brouters  [A].  Consequently,  the 
individual  attractive  features  of  both  architectures  are  supported  with  the  brouters. 

In  this  study,  the  NI  developed  for  an  FDDI  LAN  interconnection  is 
intended  to  be  a  generic  model.  Other  high  speed  interface  models  can  be  developed 
either  for  ATM  or  newer  networking  technologies,  as  they  reach  maturity. 

C.     PROPOSED  BRIDGING  METHOD 

1.  Current  Standards 

Throughout  the  networking  evolution,  bridging  standardization  proce- 
dures addressed  the  interconnection  of  separate  LANs  at  geographically  close  points 
of  attachment  with  local  MAC  bridges  [2].  As  LANs  became  more  prevalent  both 
in  commercial  and  military  applications,  the  need  to  interconnect  geographically 
separated  LANs  proved  inevitable. 

An  emerging  IEEE  standard  is  being  developed  to  satisfy  this  funda- 
mental necessity  [5].  This  draft  standard  specifies  how  a  cluster  of  remote  LANs 
can  be  bridged  with  remote  bridges  in  the  MAC  level.  Moreover,  the  proposed  stan- 
dard provides  all  functionalities  of  local  MAC  bridges  to  remote  MAC  bridges  with 
special  additions. 

2.  Remote  Bridging 

Remote  MAC  bridges,  possibly  not  constrained  to  the  same  geographic 
area,  interconnect  locally  situated  LANs  to  the  one  or  more  remote  MAC  bridges 
by  using  a  non-LAN  communication  medium  as  depicted  in  Figure  2.  MAC  service 
support  of  remote  bridges  performs  the  equivalent  communication  functions  of  the 
conventional  local  bridges  across  a  non-LAN  medium.  This  communication  medium, 
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Figure  2:     Remote  MAC  bridge  architecture  [5]. 


which  may  be  any  type  of  point-to-point  link,  is  operated  and  controlled  by  the 
group  communications  entity  within  the  remote  MAC  bridge. 

The  group  communications  entity,  which  is  represented  in  the  virtual 
port  level,  is  an  abstract  communication  functionality  supported  by  protocols  and 
procedures.  As  will  be  stated  in  the  next  section,  a  promising  candidate  protocol 
for  CDL  deployment  is  the  Internet  Standard  Point-to-Point  Protocol  (PPP)  and 
its  imbedding  into  this  entity  is  being  addressed  in  further  studies  [6]. 


The  spanning  tree  algorithm  and  its  associated  procedures  are  reempha- 
sized  in  the  draft  standard  for  remote  MAC  bridges  in  order  to  preserve  the  active 
topology  and  provide  automatic  reconfiguration  in  the  entire  network. 

Remote  bridge  functions  enforced  by  the  spanning  tree  topology  also 
include  forwarding  process  and  learning  process  associated  with  filtering  database 
as  in  the  case  of  local  MAC  bridges.  The  forwarding  process  filters  the  frames 
coming  from  local  LAN  on  the  basis  of  permissible  destination  addresses  contained 
in  the  filtering  database,  while  forwarding  the  frames  coming  from  other  LANs  to 
their  destinations.  The  learning  process  updates  the  filtering  database  by  observing 
the  source  addresses  of  received  frames. 

The  developed  model  that  will  be  discussed  in  the  next  chapter  is  evalu- 
ated in  relation  to  the  proposed  remote  MAC  bridging  functionality.  However,  it  is 
not  intended  to  be  the  implementation  of  a  full-fledged  remote  MAC  bridge.  Since 
topology  is  restricted  to  a  pair  of  FDDI  LANs  and  probable  topology  changes  are 
not  modeled  in  this  generic  implementation,  bridge  functions  are  fitted  into  two  sep- 
arate stations  existing  in  the  interconnected  network  model.  As  a  result,  subsequent 
processes  for  these  functions  are  preferred  to  be  simple  forward  and  filter  decisions 
based  on  a  priori  knowledge  of  the  addressing  database  maintained  in  these  stations. 

D.     UNIQUENESS  OF  THE  CDL  ENVIRONMENT 
1.     Description 

As  noted  before,  CDL  is  a  full-duplex,  jam- resistant,  point-to-point  mi- 
crowave communication  system  that  provides  real-time  connectivity  and  interoper- 
ability between  multiple  collection  platforms  and  surface  terminals.  In  our  study, 
CDL  is  assumed  to  be  a  bundle  of  unidirectional  point-to-point  bit  pipes  associated 
with  certain  data  rates  along  the  communication  medium.   The  bit  pipes  carrying 
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information  from  surface  terminals  to  the  collection  platform  are  grouped  together 
as  the  command  link.  The  link  which  performs  the  same  functionality  in  the  oppo- 
site direction  is  called  the  return  link.  The  return  link  carries  information  such  as 
voice,  platform  status,  and  data  gathered  by  sensors  from  the  collection  platform. 

2.  System  Requirements 

The  first  set  of  requirements  is  simply  related  to  NI  architecture  and  its 
operation.  Our  model  assumes  the  presence  of  FDDI  LANs  on  both  ends  of  the  CDL 
link  itself.  In  this  thesis,  the  NI  functions  required  when  CDL  link  is  established  are 
addressed.  Thus,  the  setup  procedures  such  as  link  establishment  and  authentication 
are  ignored  in  order  to  simplify  the  model  simulation  sequence.  The  second  set  of 
requirements  refers  to  the  typical  CDL  scenarios.  The  NI  implementation  should 
be  generic  so  that  different  scenarios  can  be  supported  with  a  single  type  of  NI. 
Some  of  the  scenarios  may  require  the  LAN  to  be  interconneceted  to  multiple  LANs 
permitting  multicasting  of  collected  data  while  others  may  require  relaying  of  data 
from  one  LAN  to  another.  The  third  set  of  requirements  determines  the  issues 
related  to  data  types  and  quality  of  service  (QoS).  QoS,  associated  with  the  link, 
is  expected  to  be  provided  in  the  NI  using  different  buffering  schemes.  Dynamic 
monitoring  of  link  quality  will  be  deployed  as  a  subsequent  subprotocol  of  PPP  in 
the  further  developments  of  our  model. 

3.  Asymmetry  between  Command  and  Return  Link 

The  number  of  bit  pipes,  and  consequently  data  rate  of  the  return  link 
depend  upon  the  particular  CDL  configuration  used.  The  information  is  assumed 
to  be  multiplexed,  formatted,  and  transmitted  as  a  composite  stream  to  the  surface 
LAN  at  various  data  rates  from  10  Mbps  to  hundreds  of  Mbps  in  the  full-capacity 
configuration.  Several  channel  hierarchies  are  also  assumed  to  be  available  for  each 
data  rate  with  each  channel  being  an  independent  data  stream. 


As  previously  stated,  the  command  link  handles  the  transmission  of  user 
commands  from  the  surface  LAN  to  the  collection  platform  LAN.  Contrary  to  the 
return  link,  the  command  link  is  assumed  to  employ  a  fixed  data  rate  of  200  Kbps. 
The  asymmetry  cited  in  the  duplex  point-to-point  link,  enforces  separate  perfor- 
mance evaluation  of  the  links  that  will  be  examined  in  the  Chapter  IV. 
4.      Considerations  on  Link  Utilization 

The  major  issue  to  be  addressed  in  this  unique  network  architecture  is 
efficient  utilization  of  the  communication  link.  In  CDL  deployment,  the  link  is  time- 
critical,  bandwidth  is  expensive,  and  prone  to  errors  due  to  the  probable  interference 
and  jamming  in  the  operational  environment. 

The  implementation  of  an  interconnection  mechanism  as  multiple  chan- 
nels for  the  return  link  requires  proper  management  of  these  channels.  There  are 
several  studies  about  high  speed  protocol  controllers  which  investigate  and  propose 
high  performance  [7-9]. 

One  of  these  approaches  is  the  realization  of  a  distributed  multilink  sys- 
tem which  offers  a  load  balancing  mechanism  for  protocol  controllers  in  order  to 
increase  the  total  throughput  of  a  high  speed  data  link  control  system.  The  pro- 
posed method  for  distribution  of  frames  to  multiple  links  evaluates  several  transmis- 
sion allocation  algorithms.  Our  model  employs  two  of  the  most  efficient  algorithms 
which  are  implemented  in  the  NI.  First,  we  modeled  the  circular  allocation  algo- 
rithm, which  calls  for  the  allocation  of  frames  to  the  NI  transmitters  in  a  circular 
order  regardless  of  the  state  of  individual  transmitter  buffers  [7].  Secondly,  we  im- 
plemented the  empty  selection  algorithm,  which  requires  the  selection  of  an  empty 
area  in  transmitting- waiting  buffers  for  frame  allocation  [7].  The  decision  process, 
based  on  determining  the  next  candidate  for  transmission  allocation,  is  also  carried 
out  by  NI  in  order  to  provide  transparency  to  end  stations. 
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Although  load  balancing  is  aimed  towards  the  efficient  multiple  link  uti- 
lization, side  effects  introduced  by  this  procedure  must  be  examined  carefully.  The 
slippage  among  multiple  links  due  to  different  transmission  capacities  causes  non- 
deterministic  arrival  times  of  data  on  the  receiving  end.  For  this  reason,  after  the 
frames  are  received,  reordering  of  them  is  unavoidable.  Thus,  the  trade-off  is  in- 
creased receive-end  buffer  size  necessary  for  this  process  or  efficient  multiple  link 
utilization.  Our  model  does  not  address  the  issues  about  resequencing  of  frames  on 
the  receiving  end.  Instead,  a  simple  time  division  multiplexing  procedure  is  per- 
formed for  transmission  such  that  consecutive  frames  coming  from  the  same  station 
are  sent  through  the  same  transmission  channel  regardless  of  the  load  balancing 
algorithm  in  use.  Thus,  the  reordering  problem  is  solved  automatically  with  this 
simplification. 

5.     The  Effects  of  Jamming 

Another  feature  intrinsic  to  CDL  is  varying  bit  error  rate  (BER)  affecting 
links  severely  due  to  the  nature  of  the  deployment  environment.  A  constant  BER 
can  not  be  assumed  in  the  model  during  the  existence  of  the  link.  The  exact  system 
performance  must  be  evaluated  in  the  presence  of  jamming  for  any  typical  military 
application.  Therefore,  the  link  efficiency  must  be  investigated  under  two  different 
types  of  jamming  models  which  are  described  in  the  next  chapter. 
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III.  MODELING  CDL  NETWORK  INTERFACE  IN 

OPNET 

A.     OVERVIEW 

As  discussed  in  Chapter  II,  the  necessity  to  integrate  two  FDDI  LANs  to  each 
other  in  CDL  scenario,  enforces  crucial  changes  in  the  modular  structure  of  OPNET 
model.  All  of  these  changes  are  implemented  in  three  phases: 

•  Applying  the  model  modifications  necessary  to  implement  individual  traffic, 
throughput  etc.  for  separate  FDDI  LANs, 

•  Modeling  the  linking  nodes  in  order  to  accommodate  the  generic  remote  MAC 
bridge  features  in  relation  to  CDL,  and 

•  Linking  two  FDDI  LANs  in  CDL  perspective. 

This  chapter  provides  the  detailed  model  development  in  the  order  above.  The 
explanation  of  FDDI  protocol  and  model  in  OPNET  will  not  be  presented  here. 

The  whole  documentation  for  simulation  development  is  available  in  the  eleven 
volume  set  of  manuals  provided  by  MIL  3,  Inc.  In  addition  to  these  manuals,  [1] 
serves  as  an  extensive  tutorial,  particularly,  for  FDDI  LAN  development.  The  ex- 
periences gained  through  previous  studies  are  readily  documented  in  the  aforemen- 
tioned thesis. 

The  faithfulness  of  the  developed  model  will  also  be  discussed  in  the  last  section 
of  the  chapter. 
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B.     REVISED  FDDI  LAN  MODEL 
1.      FDDI  LAN  Model  in  Brief 

OPNET  provides  a  built-in  model  for  FDDI  LANs.  The  modifications 
achieved  in  a  recent  study  for  model  development  are  focused  on  validating  the  FDDI 
protocol  in  OPNET  [1].  It  includes  the  synchronous  and  asynchronous  transmission 
characteristics  of  the  model.  The  individual  throughput,  mean  delay  and  end-to- 
end  delay  features  for  the  synchronous,  prioritized  asynchronous  and  total  traffic  in 
an  FDDI  LAN  were  modeled  and  examined.  FDDI  multicasting  capability  and  a 
rudimentary  linking  node  for  the  interface  development  are  also  introduced  in  [1]. 

OPNET's  FDDI  LAN  model  is  implemented  in  a  hierarchy.  Each  LAN  is 
represented  as  a  ring  of  FDDI  stations  connected  to  each  other.  Figure  3  shows  the 
complete  ring  representation  of  an  FDDI  LAN.  The  internal  structure  of  a  10-station 
FDDI  LAN  ring  is  depicted  in  Figure  4. 

Each  station  is  represented  as  an  FDDI  station  model  which  includes 
nodes  connected  to  each  other.  An  FDDI  station  model  is  illustrated  in  Figure 
5.  Each  node  is  defined  by  process  models  that  are  represented  as  state  transition 
diagrams.  Figures  6-8  show  this  modular  model  structure.  The  detailed  explana- 
tions of  the  models  will  not  be  reviewed  here  for  the  reasons  mentioned  before.  A 
brief  introduction  to  revised  FDDI  model  in  OPNET  is  intended  to  lead  to  a  better 
exposition  of  the  model  enhancement  made  in  this  thesis. 

The  ultimate  source  that  determines  the  behavior  of  a  state  in  a  process 
model,  is  "C"  language  codes  embedded  in  that  state.  Thus,  the  modifications 
implemented  throughout  this  thesis  refer  to  code  changes  as  well  as  the  illustration 
of  interconnected  FDDI  LAN  model. 
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Figure  3:     FDDI  LAN  ring  representation. 
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Figure  4:     Ten-station  FDDI  LAN,  fddi.net.  10. 
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Figure  5:     FDDI  station  model,  fddi_ station. 


Figure  6:     Source  process  model,  ufddi_gen". 
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Figure  8:     Sink  process  model,  "fddi.sink" 
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2.     Modifications  on  FDDI  Station  Model 

a.  Preliminary 

The  built-in  FDDI  LAN  model  in  OPNET  is  designed  such  that 
only  a  single  LAN's  statistic  can  be  obtained  at  the  end  of  the  model  simulation. 
This  restriction  forces  revision  of  the  FDDI  station  model,  and  subsequently,  its 
associated  process  models. 

Some  of  the  packet  formats,  used  by  all  FDDI  stations,  are  also 
modified  in  order  to  enhance  the  functionality  of  these  models  in  relation  to  the 
interconnection . 

Throughout  the  description  of  model  development,  OPNET  objects 
are  highlighted  with  a  typewriter  font  as  a  technical  convention.  While  node  models 
are  highlighted  with  a  typewriter  font,  process  models  and  simulation  attributes  are 
set  off  in  double  quotes  with  the  same  font.  Similarly,  packet  formats  are  highlighted 
in  italics  and  double  quotes  within  the  text. 

b.  Source  Node  Modifications 

The  message  traffic,  in  form  of  packets  is  generated  in  llc.src 
which  employs  the  "fddi.gen"  process  model.  The  information  packet  generated 
to  be  sent  to  mac  is  defined  as  " fddijilc^r" .  This  packet  format  is  also  same  for 
the  packets  sent  from  mac  to  llc.sink.  Moreover,  the  necessary  interface  between 
llc_src  and  mac  is  provided  by  "fddi_mac_req"  interface  control  information  (ICI) 
packet  format.  After  an  information  packet  is  received  in  mac,  " fddi_llc_fi9>  changes 
its  form  to  ufddi_mac_fr^ .  Regardless  of  the  functional  differences  between  them,  all 
of  these  packets  are  modified  in  order  to  be  used  in  a  bridge  model.  Consequently, 
three  lines  of  code  is  added  in  the  ARRIVAL  state  of  "f  ddi.gen"  process  model  to 
set  the  new  fields  of  ufddi_llc_Ji7'  and  afddi_mac_reqr'  packet  formats. 
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The  details  about  the  modifications  on  packet  formats  will  be  stated 
in  Section  E  of  this  chapter. 

c.      Sink  Node  Modifications 

The  packets  are  counted  and  the  statistics  are  gathered  in  the 
llc_sink,  or  in  other  words  "f  ddi.sink"  process  model.  All  statistics  related  to  a 
LAN  are  updated  through  the  global  variables  in  this  process  model.  In  the  case  of 
a  second  LAN,  this  global  nature  must  be  restricted  to  individual  LANs  to  provide 
a  realistic  representation  of  the  whole  network.  Thus,  all  statistical  attributes  in 
INIT  and  STATS  are  renamed  to  make  them  private  for  the  first  FDDI  LAN.  A 
similar  procedure  is  performed  again  for  a  second  "f  ddi_sink"  process  model.  This 
process  model  is  named  as  "fddi2_sink",  and  it  is  embedded  into  llc.sink  nodes 
of  the  second  FDDI  LAN  that  will  be  interconnected.  Furthermore,  the  DISCARD 
state  is  modified  such  that  statistics  are  gathered  only  for  local  traffic  on  the  basis 
of  incoming  frames'  source  addresses. 

C.     BRIDGE  MODEL 

1.  Preliminary 

The  generic  remote  MAC  bridge  that  interconnects  two  FDDI  LANs  is 
composed  of  two  separate  NIs.  Since  symmetric  modifications  are  done  for  both 
LANs,  for  simplicity,  the  NI  in  the  colllection  platform  LAN  is  referred  as  CPNI, 
and  the  NI  in  the  surface  LAN  is  referred  as  SPNI  in  our  FDDI-CDL  model. 

2.  The  CPNI 

a.     Station  Model 

This  represents  the  FDDI  station  model  functioning  as  an  NI  in 
the  collection  platform  LAN.  Figure  9  is  an  illustration  of  the  CPNI  employing 
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Figure  9:     Collection  Platform  LAN  Network  Interface  (CPNI). 
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simplified  137.088  Mbps  mode  return  link  hierarchy  in  the  OPNET  user  interface 
window.  When  compared  to  the  built-in  FDDI  station  model  of  Figure  7,  first 
major  distinction  seen  is  the  implementation  of  llc.sink  as  a  queue  module.  This 
alteration  is  the  fundamental  step  in  creation  of  a  bridge  link.  The  other  differences 
from  the  original  model  include  point-to-point  transmitter  and  receiver  nodes. 

This  particular  station  examines  the  destination  addresses  of  frames 
coming  from  both  LANs.  Based  on  the  addressing,  frames  are  either  destroyed  or 
forwarded  to  destination.  If  the  frames  are  destined  for  the  local  LAN,  they  are 
simply  passed  to  the  local  MAC  level  as  in  the  FDDI  protocol.  The  frames  destined 
for  surface  LAN  are  streamed  through  transmitters'  buffers  from  llc.sink.  Since 
the  CPNI  also  has  the  full  functionality  of  an  ordinary  FDDI  station,  any  frame 
sourced  from  either  LAN  may  be  destined  for  this  station  address. 

While  the  frames  destined  to  the  CPNI  coming  from  its  local  LAN 
are  treated  within  mac,  the  overhead  of  MAC  access  for  the  frames  coming  from 
remote  LAN  via  pr_l,  is  prevented  in  Logical  Link  Control  (LLC)  level.  These 
frames  are  evaluated  in  the  llc_src  and  conditionally  passed  to  the  mac  for  trans- 
mission along  the  local  LAN,  or  forwarded  to  llc_sink  for  destruction.  Therefore, 
the  frames  destined  for  the  CPNI  do  not  need  to  be  repeated.  Instead,  they  are 
by-passed  to  llc.sink  for  higher  layer's  access. 

The  point-to-point  transmitters,  named  pt_l  thru  pt_4,  are  the 
return  link  transmission  sources.  Information  gathered  in  collection  platform  LAN 
is  conveyed  to  the  stations  on  surface  LAN  by  these  transmitter  nodes.  Transmission 
allocation  procedure  is  realized  according  to  the  load  balancing  algorithm  in  use. 

Conversely,  the  point-to-point  receiver  node,  pr_l  is  connected  to 
llc.src  and  it  serves  as  the  command  link  gate  to  the  collection  platform  LAN. 
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b.  Source  Node  Modifications 

The  source  node  of  the  CPNI  includes  "cp_f  ddi_gen"  process  model. 
This  process  model  differs  from  "f  ddi_gen"  due  to  the  modifications  implemented 
in  its  ARRIVAL  state.  In  this  state,  frames  coming  from  the  surface  LAN  are  de- 
termined first.  If  there  are  incoming  frames,  the  CPNI  postpones  its  own  frame 
generation  until  no  more  frames  are  received.  Then,  the  received  frames'  destina- 
tion addresses  are  checked.  Any  frame  destined  for  the  CPNI  is  simply  forwarded  to 
llc.sink  for  destruction.  Thus,  these  frames  are  not  sent  to  mac  like  the  rest  of  the 
incoming  ones.  The  necessary  interface  along  with  the  information  packet  is  sup- 
plied to  mac  with  " fddi_mac_re(f  ICI  packet  format.  During  this  ICI  packet  transfer, 
"pri"  field  is  set  to  the  highest  priority  which  is  assigned  to  the  synchronous  trans- 
mission. This  procedure  is  essential  to  keep  the  bridge  model  realistic.  In  FDDI, 
these  priorities  relate  to  LAN  bandwidth  allocation.  Since  priorities  are  only  local 
to  each  LAN  and  FDDI  frames  do  not  contain  an  explicit  priority  field  (unlike  IEEE 
802.5),  there  is  no  way  to  determine  to  which  priority  level  the  frame  received  from 
the  other  LAN  belongs.  Therefore,  once  the  NI  receives  these  frames,  it  always 
sends  them  as  synchronous  traffic  on  its  LAN.  The  ".C"  code  for  "cp_f  ddi_gen"  is 
provided  in  Appendix  A. 

c.  MAC  Node  Modifications 

The  mac  of  the  CPNI  employs  "cp_f  ddi.mac"  as  its  process  model 
(Appendix  B).  The  modifications  made  to  the  original  model  are  categorized  in  four 
groups  as  below. 

(1)  "static"  Declarations.  Since  we  use  common  basic  pro- 
cess models  in  stations  with  different  names,  the  functions  and  variables  used  by 
the  process  models  are  made  '  'static"  to  prevent  name  conflicts. 
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(2)  INIT  State.  The  token  can  be  generated  by  any  of  the 
stations  in  the  original  OPNET  FDDI  model.  To  simplify  the  simulation  sequence, 
the  INIT  state  code  is  changed  such  that  only  the  NI  is  capable  of  generating  the  first 
token.  This  takes  effect  only  if  the  simulation  environment  file  is  set  as  described  in 
Chapter  IV. 

(3)  FR_REPEAT  State.  The  frames  coming  from  the  phys- 
ical layer  are  inspected  on  the  basis  of  destination  addresses  in  this  state.  The 
modifications  in  FR_REPEAT  refer  to  the  implementation  of  major  bridge  func- 
tions. While  the  frames  addressed  to  the  surface  LAN  are  forwarded  to  llc.sink, 
the  ones  having  a  local  destination  address  are  propagated  in  the  local  LAN.  Thus, 
the  local  traffic  is  effectively  filtered  by  the  NI. 

(4)  ENCAP  State.  The  original  source  address  of  a  frame 
coming  from  llc.src  needs  to  be  preserved  in  this  state.  Furthermore,  a  simple 
check  is  made  for  default  values  of  source  and  destination  addresses  in  ufddi_mac_req''' 
ICI  packet  format.  Thus,  ufddi_mac_fr"  packets  containing  the  same  source  and 
destination  addresses  are  not  erroneously  composed  in  this  state. 

d.      Sink  Node  Modifications 

Several  modifications  are  required  to  the  11  c_ sink  of  the  NI  as 
described  below.  This  node  uses  the  "cp_fddi_sink"  process  model  and  acts  as 
an  interface  between  the  FDDI  LAN  and  CDL.  As  a  result,  all  three  states  of  this 
process  model  are  modified.  The  modified  ".C"  code  is  in  Appendix  C. 

(1)  INIT  State.  All  the  global  statistics'  arrays  which  are  used 
in  the  analysis  tool  are  defined  here.  Consequently,  the  statistics  array  needed  for 
the  traffic  monitoring  of  return  link  in  each  priority,  is  also  defined  in  this  state. 

(2)  DISCARD  State.  Notwithstanding  its  name,  the 
"cp_fddi_sink"  process  model's  DISCARD  state  does  not  discard  all  the  frames. 
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The  source  and  destination  addresses  of  the  frames  are  inspected  here.  The  frames 
having  the  NI  address  as  their  destination  are  destroyed.  Moreover,  if  they  are  gen- 
erated by  local  stations,  the  related  statistics  are  updated.  The  frames  destined  for 
the  remote  LAN  are  not  destroyed.  Instead,  they  are  counted  and  enqueued  in  the 
subqueues  of  llc_sink  for  transmission.  The  transmitters'  status  are  continuously 
monitored  before  and  after  the  transmission  with  OPNET  statistical  interrupts  de- 
scribed in  Section  D.  The  allocation  of  frames  to  transmitters  using  different  load 
balancing  algorithms  is  also  performed  in  this  state.  The  details  of  this  procedure 
are  provided  in  Section  E. 

(3)      STATS  State.     This  state  refers  to  the  documentation  of 
statistics  at  the  end  of  the  simulation.  It  is  this  state  that  must  generate  the  return 
link  related  statistics. 
3.     The  SPNI 

a.     Station  Model 

This  model  is  one  of  the  FDDI  stations  located  in  the  surface  LAN. 
The  SPNI  employing  the  same  return  link  hierarchy  mentioned  above,  is  depicted 
in  Figure  10.  This  station  has  the  same  functionality  of  the  NI  as  in  collection 
platform  LAN,  but  in  the  reverse  direction.  As  clearly  seen,  there  exists  symmetry 
in  the  number  of  transmitters  and  receivers  with  respect  to  its  correspondent  in 
collection  platform  LAN.  The  node,  llc_src  accesses  mac  via  pr_l  thru  pr_4  that 
are  the  downstream  gates  of  surface  LAN.  The  frames  destined  for  the  SPNI  are 
distinguished  by  llc_src  and  forwarded  to  the  llc_sink  directly.  This  process 
prevents  the  additional  MAC  access  creating  a  significant  overhead. 

Although  the  SPNI  serves  as  a  receive  end-point  for  the  return  link, 
it  is  also  capable  of  generating  its  own  frames  like  other  FDDI  stations. 
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Figure  10:     Surface  Platform  LAN  Network  Interface  (SPNI). 


25 


The  transmitter,  pt_l  is  command  link  access  node.  This  node  han- 
dles the  frames  coming  from  llc_sink  and  delivers  them  to  the  collection  platform 
LAN.  The  forwarding  and  filtering  decisions  based  on  addressing,  are  implemented 
in  llc_sink  as  in  the  CPNI. 

Symmetric  modifications  are  carried  out  in  the  process  models  of 
spni  with  respect  to  the  CPNI.  Since  much  of  the  details  are  provided  before,  only 
major  distinctions  for  each  node  will  be  stated  below. 

b.  Source  Node  Modifications 

The  source  node  of  the  SPNI  employs  "sp_f  ddi_gen"  as  the  pro- 
cess model.  The  modifications  implemented  in  this  process  model  are  the  same 
as  "cp_f  ddi_gen"  with  one  exception.  In  the  ARRIVAL  state,  the  frames  having 
destination  addresses  in  collection  platform  LAN  are  passed  to  llc_sink.  This  in- 
spection is  based  on  the  permanent  database  maintained  in  the  NIs  as  can  be  seen 
in  the  ".C"  code  supplied  in  Appendix  D. 

c.  MAC  Node  Modifications 

The  process  model  "sp_fddi_mac"  has  the  same  alterations  as 
"cp_fddi_mac"  process  model's  case  in  INIT  and  ENCAP  states.  The  same  vari- 
ables and  all  functions  are  also  defined  as  "static".  The  difference  appears  in 
FR_REPEAT  state.  Thus,  ".C"  code  provided  in  Appendix  E  includes  only  this 
modified  state.  In  this  state,  the  frames  belonging  to  the  collection  platform  LAN  or 
addressed  to  the  SPNI  are  passed  to  llc_sink,  while  others  are  simply  propagated. 
This  decision  is  also  made  on  the  basis  of  a  priori  knowledge  of  addresses. 

d.  Sink  Node  Modifications 

The  changes  in  INIT  and  STATS  states  of  "sp_fddi_sink"  are 
symmetric  to  the  ones  in  "cp_f  ddi_sink"  process  model.  Furthermore,  DISCARD 
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state  modifications  differ  from  "cp_fddi_sink"  process  model's  DISCARD  state. 
In  this  state,  the  frames  destined  to  the  SPNI  are  destroyed  and  related  statistics 
are  updated  for  the  surface  LAN.  Since  there  is  no  multiple  link  deployment  for 
the  command  link,  transmission  capacity  allocation  is  based  on  FIFO  queue  of 
llc.sink.  For  this  reason,  load  balancing  algorithms  are  not  employed  here.  The 
tt.C  code  for  usp_f  ddi_sink"  is  provided  in  Appendix  F. 

D.     CDL  MODEL 

1.     OPNET  Model  for  Point-to-Point  Links 
a.     Preliminary 

OPNET  system  models  are  composed  of  distributed  subsystems 
which  need  a  communication  mechanism  among  them.  There  are  several  meth- 
ods available  in  OPNET  for  the  communication  between  two  subsystems,  the  most 
prevalent  being  the  packet-based  one.  In  the  OPNET  environment,  a  packet  is 
a  data  structure  facilitating  information  transfer  from  one  subsystem  to  another. 
While  packet  streams,  represented  as  the  physical  connections,  provide  transmis- 
sion between  nodes  in  the  same  subsystem,  the  ultimate  transfer  of  information  to 
other  subsystems  is  employed  in  the  form  of  communication  links. 

As  mentioned  in  Chapter  II,  CDL  deployment  requires  point-to- 
point  link  management  because  of  the  physical  constraints  of  the  environment. 
Point-to-point  links,  either  simplex  or  duplex,  allow  packets  to  be  transmitted  be- 
tween a  single  pair  of  nodes.  Each  link  consists  of  several  transmission  channels 
between  the  source  and  destination  node  that  it  connects.  In  OPNET,  these  nodes 
are  referred  to  as  transmitters  and  receivers. 
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b.  Transmitters 

These  nodes  serve  as  the  exit  points  of  a  station  for  packets  forwarded 
on  point-to-point  data  transmission  links.  They  are  composed  of  multiple  channels, 
each  of  which  is  tied  to  a  receiver  channel  in  a  remote  station  via  point-to-point 
link. 

Transmitters  are  built-in  FIFO  queues  with  infinite  capacity  per  channel. 
These  queues  regulate  the  transmissions  in  a  channel  so  that  only  one  packet  is 
transmitted  on  the  link  at  any  time. 

The  status  of  any  transmitter  can  be  monitored  with  OPNET  statistical 
interrupts.  These  interrupts  are  represented  via  statistics  wires  in  the  OPNET  user 
interface  window.  Particularly,  the  "busy"  statistic,  which  is  fed  back  to  a  node  from 
a  transmitter  plays  the  most  important  role  for  any  transmission  capacity  allocation 
process. 

c.  Receivers 

As  opposed  to  transmitters,  these  nodes  act  as  entry  points  of  a 
station  for  packets  received  on  point-to-point  data  transmission  links.  They  employ 
the  reverse  functionality  of  the  transmitters.  After  reception  of  packets  on  channels 
in  the  remote  station,  the  packets  are  forwarded  through  output  streams  to  the 
attached  node  of  the  receiver  node  for  further  processing. 

d.  Transceiver  Pipeline  Stages 

In  OPNET,  point-to-point  links  can  be  configured  to  model  packet 
transmission  in  several  ways.  Each  link  includes  a  series  of  default  or  user-definable 
submodels  called  pipeline  stages.  The  source  code  for  all  the  default  models  is 
provided  in  <opdir>/stdmod/base  directory. 
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In  any  pipeline  stage  of  the  model,  the  data  related  to  each  packet 
is  used  in  the  various  computations  related  to  its  transmission.  These  computations 
are  performed  in  order  to  identify  the  reception  time  and  whether  or  not  a  packet 
is  received  correctly. 

Point-to-point  links  are  based  on  a  four  stage  pipeline  that  supports 
the  transfer  of  packets  from  a  transmitter  to  a  receiver.  These  stages  are  described 
below  in  brief. 

(1)  Transmission  Delay.     This  is  the  first  stage  of  the  transceiver 
pipeline.  In  this  stage,  the  amount  of  time  required  for  the  transmission  of  an  entire 
packet  is  calculated.  This  computation  is  performed  independently  for  each  packet 
transmission  on  the  basis  of  channel  "data  rate"  and  length  of  the  packet.  OPNET 
employs  the  default  transmission  delay  model,  "dpt.txdel"  for  this  pipeline  stage. 

(2)  Propagation  Delay.  After  the  first  stage,  packets  are  passed 
to  the  propagation  delay  pipeline  stage.  The  purpose  of  this  stage  is  to  calculate 
the  amount  of  time  for  the  packet  to  reach  the  receiver  in  the  destination  node. 
The  parameter  necessary  for  this  computation  is  the  "delay"  attribute  of  the  point- 
to-point  link.  The  default  propagation  delay  model  provided  by  OPNET  is  called 
"dpt.propdel". 

(3)  Error  Allocation.  Since  the  packets  are  prone  to  errors 
during  transmission,  the  third  stage  of  the  transceiver  pipeline  allocates  errors  for 
transmitted  packets.  The  default  model,  "dpt .error",  uses  the  "ber"  attribute  of 
the  point-to-point  link  for  this  process.  The  algorithm  implemented  in  this  model 
generates  a  random  number  of  errors  with  a  fixed  BER  during  the  whole  period  of 
the  simulation. 

(4)  Error  Detection  and  Correction.  This  is  the  final  stage 
of  point-to-point  transceiver  pipeline.    The  purpose  of  this  stage  is  to  determine 
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whether  or  not  the  received  packet  can  be  accepted  and  forwarded  to  its  destination. 
The  comparison  is  based  on  the  "ecc"  attribute  of  the  receiver  node.  This  attribute 
represents  the  probability  of  bit  error  that  can  be  tolerated  for  acceptability.  If  it 
is  set  to  zero,  default  model  "dpt.ecc"  only  accepts  error-free  packets.  Setting  a 
non-zero  threshold  for  this  attribute  corresponds  to  error  correction  procedure  for 
the  received  packet. 

2.     Error  Modeling  over  Multiple  Links 

a.      Modifications  on  Error  Allocation  Pipeline  Stage 

As  stated  earlier,  error  modeling  over  point-to-point  links  is  carried 
out  in  the  error  allocation  stage  of  transceiver  pipeline.  Since  the  default  pipeline 
stage  model  uses  a  constant  BER  as  the  simulation  progresses,  a  realistic  model  must 
be  developed  for  the  CDL  link.  For  this  purpose,  default  error  model  "dpt .error" 
is  modified,  and  the  new  model  is  renamed  as  "cdl_pt .error". 

In  OPNET,  the  necessary  modifications  for  a  pipeline  stage  model 
are  done  in  the  " opjmodels"  directory.  And,  after  these  modifications,  the  cus- 
tomized model  file  must  be  compiled  separately.  So,  "cdl_pt_error"  model  is 
compiled  with  the  following  command: 

cc  -c  " /op_models/cdl_pt_error.ps.c  -I/<opdir> /sys/include 

This  procedure  is  necessary  to  link  other  OPNET  libraries.  Oth- 
erwise, binding  errors  result  during  the  generation  of  simulation  file.  Appendix 
G  is  the  file  "cdl_pt .error. ps.c",  containing  the  modifications  described  in  this 
section. 

In  contrast  to  the  default  model,  "cdl_pt_ error"  performs  error 
allocation  with  a  varying  BER.  Thus,  the  link  attribute  "ber"  is  disregarded  in  this 
stage.  Instead,  new  attributes  are  specified  to  accomplish  a  dynamic  error  allocation 
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stage.  Six  different  attributes  are  added  for  each  channel  in  the  extended  attributes 
menu  of  the  point-  to-point  link.  These  attributes  are  depicted  in  Figure  11,  and 
defined  below. 

(1)  "jam_ber".  This  attribute  is  the  maximum  BER  on  the 
transmission  channel  of  a  point-to-point  link  during  jamming. 

(2)  "ber_bet_jam_len".     This  attribute  corresponds  to  the  max- 
imum BER  on  the  transmission  channel  of  a  point-to-point  link  in  the  duration 
between  two  consecutive  jamming  pulses. 

(3)  "jam_length".  This  is  the  duration  of  a  jamming  pulse  af- 
fecting the  transmission  channel  of  a  point-to-point  link. 

(4)  "interval_bet_jam_len" .     This  is  the  duration  between  two 
consecutive  jamming  pulses  affecting  the  transmission  channel  of  a  point-to-point 
link. 

(5)  "init_jam_pffset".  This  attribute  is  the  initial  offset  time 
on  the  transmission  channel  of  a  point-to-point  link.  This  offset  is  required  for  the 
channel-swept  jammer  which  will  be  described  later. 

(6)  "jammer_type".  The  last  one  of  the  extended  attributes 
specifies  the  type  of  the  jamming  model  of  which  CDL  link  is  exposed  to. 

b.     Jammer  Implementations 

There  are  two  distinct  jamming  models  implemented  in  this  study. 
These  are  pulsed  jammer  and  channel-swept  jammer,  respectively.  Regardless  of  the 
jamming  type  in  use,  a  transmitted  packet  is  first  time-stamped  in  simulation  time 
domain.  This  time-stamp  is  used  to  determine  whether  or  not  a  packet  is  subjected 
to  jamming.  After  this  decision,  further  procedures  are  carried  out  for  each  jammer 
type  independently. 
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Figure  11:     The  attributes  used  for  jamming  patterns. 
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(1)  Pulsed  Jammer.  In  this  model,  all  transmission  channels 
are  exposed  to  separate  pulse  trains  in  time.  This  configuration  is  achieved  by 
setting  up  proper  values  for  previously  described  extended  attributes  in  the  simula- 
tion environment  file.  Appendix  H  is  a  sample  environment  file  configured  for  this 
particular  model. 

In  order  to  provide  a  more  realistic  representation,  the  durations  of 
jamming  pulses  and  BERs  during  these  periods  are  also  randomized  with  uniform 
distribution.  Because  of  this  stochastic  process,  first  four  of  the  extended  attributes 
are  actually  the  maximum  values  that  can  occur  during  transmission.  Consequently, 
each  transmitted  packet  is  subjected  to  a  different  BER  according  to  its  presence  in 
simulation  time  domain.  Figure  12  is  an  illustration  of  a  pulsed  jammer. 

(2)  Channel-Swept  Jammer.  The  jammer  implemented  with 
this  model  sweeps  each  transmission  channel  consecutively  in  the  simulation  time 
domain.  Again,  the  necessary  configuration  for  this  procedure  is  provided  by  the 
extended  attributes'  values  which  are  specified  in  the  simulation  environment  file. 
As  opposed  to  the  previous  jammer  model,  the  channel-swept  jammer  does  not 
randomize  the  durations  of  jamming  pulses  to  maintain  consecutive  pulse  scheme 
in  order.  However,  BERs  are  still  randomized  with  uniform  distribution.  A  proper 
offset  must  be  specified  in  the  "init_jam_off  set"  extended  attribute  of  the  point- 
to-  point  link  to  provide  consecutive  pulses  as  depicted  in  Figure  13. 

E.     LAN  INTERCONNECTION 

FDDI-CDL  interconnection  can  be  realized  using  the  modifications  described 
so  far.  Figure  14  shows  the  ultimate  interconnected  model.  While  the  top  simplex 
point-to-point  link  from  surface  LAN  (ringl)  to  collection  platform  LAN  (ringO) 
represents  the  command  link,  other  four  links  in  the  reverse  direction  represent  the 
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Figure  12:     Pulsed  jammer  representation. 
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Figure  13:     Channel-swept  jammer  representation. 
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Figure  14:     Interconnected  network  model,  fddi.cdl. 
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simplified  return  link  hierarchy.    In  this  section,  specific  features  of  this  model  of 
LAN  interconnection  are  stated. 

1.      Addressing  Through  The  Remote  Bridge 

The  interconnection  mechanism  is  based  on  the  forwarding  decision  made 
by  the  inspection  of  station  addresses.  The  stations  that  reside  on  LANs  have  unique 
addresses.  Our  model  employs  10-station  FDDI  LANs  on  both  sides  of  the  CDL 
link.  In  order  to  simplify  MAC  bridge  functions,  these  addresses  are  permanently 
installed  in  the  filtering  databases  of  the  CPNI  and  the  SPNI.  These  stations,  acting 
as  NIs,  have  the  maximum  station  number  of  each  LAN.  Thus,  filtering  decision 
is  based  on  the  comparison  of  these  NI  addresses.  If  the  number  of  stations  or 
their  addresses  need  to  be  changed,  those  NIs'  filtering  databases  must  be  updated 
according  to  the  new  address  assignments.  Besides,  the  DISCARD  state  of  process 
models  of  llc_sink  nodes  of  the  station  models  in  both  LANs  must  also  be  modified 
appropriately  to  obtain  individual  LAN  statistics. 

The  address  information  is  sent  to  the  nodes  with  several  packet  formats 
in  OPNET  modeling  environment.  The  packet  format,  ufddi_mac_j7}\  allocates 
16  bits  to  represent  station  addresses.  In  current  bridging  standards  [2,  5],  the 
addresses  are  represented  as  48  bits  within  a  frame.  Thus,  the  mentioned  packet 
format  is  modified  to  include  48-bit  source  and  destination  addresses.  Furthermore, 
the  necessity  to  include  source  and  destination  addresses  in  afddi_llc_Jr"  packet 
format  results  in  the  same  modification.  This  packet  format  is  used  in  llc_src 
nodes  of  NIs  to  prevent  unnecessary  MAC  access  as  mentioned  in  Section  C. 

For  interface  control  purposes,  "src_addr"  field  is  also  added  in  the 
original  ufddi_mac_req"  ICI  packet  format.  This  address  is  used  by  the  mac  to  keep 
the  original  source  address  of  a  frame  unmodified  during  the  data  transfer  between 
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LANs.  Figures  15-17  show  the  resulting  packet  formats  in  the  parameter  editor  of 
OPNET  user  interface  window. 

2.     Load  Balancing  over  Multiple  Links 

As  stated  before,  the  return  link  is  composed  of  multiple  channels.  In 
our  model,  simplified  return  link  hierarchy  is  represented  as  four  simplex  point-to- 
point  links,  each  having  one  transmission  channel.  Data  rates  for  each  channel  on 
both  links  are  specified  as  in  Figures  18  and  19. 

This  multiple  channel  hierarchy  requires  an  algorithm  for  transmission 
capacity  allocation.  The  selected  algorithm  eventually  leads  to  load  balancing  over 
multiple  links.  In  the  OPNET  model  implemented,  this  procedure  is  carried  out 
by  llc.sink  of  the  CPNI.  The  node,  llc.sink,  is  in  the  form  of  a  queue  module 
consisting  of  four  subqueues.  Thus,  the  transmission  capacity  allocation  process  is 
basically  allocating  frames  to  these  subqueues  that  are  attached  to  the  individual 
transmitters.  In  other  words,  the  subqueues  act  as  buffers.  Instead  of  allocating 
frames  to  the  transmitter  buffers  directly,  this  method  is  chosen  to  monitor  the 
effects  of  load  balancing  algorithm  in  use.  As  stated  in  Section  D,  point-to-point 
transmitter  buffers  are  built-in  queues  with  infinite  capacity.  This  approach  would 
not  be  realistic  for  a  bridge  model.  In  a  real  bridge,  insufficient  transmission  queue 
sizes  can  cause  dropping  of  frames.  In  the  CDL  NI  model,  the  frame  currently  being 
transmitted  resides  in  the  transmitter  buffer  until  its  transmission  is  completed. 
Other  frames  waiting  for  transmission  reside  in  the  finite  subqueues  of  llc.sink. 
Then,  these  frames  are  forwarded  to  the  related  transmitter  when  the  "busy"  signal 
goes  low,  meaning  that  the  transmitter  channel  is  idle.  This  is  accomplished  by 
OPNET  statistical  interrupts,  and  the  allocation  algorithm  calls  for  the  continuous 
monitoring  of  this  signal. 
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Figure  15:     Modified  packet  format,  " •  fddijlcjr" 
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Figure  16:     Modified  packet  format,  "fddijmac^fi* . 


39 


Figure  17:     Modified  ICI  packet  format,  ilfddi_mac_re(f 
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Figure  18:     Return  link  data  rates  and  new  attributes  for  llc.sink. 


41 


N<t»o«    ~    flOPNbl  2.4. A  (c)  1993  MIL 3,  Inc.     Node  Editor: spni 


Figure  19:     Command  link  data  rate. 


42 


The  algorithm  can  be  specified  for  the  model  from  the  simulation  envi- 
ronment file.  So,  an  extended  attribute,  "load  balancing  algorithm",  is  defined 
for  the  CPNI  as  in  Figure  18.  Regardless  of  the  load  balancing  algorithm  in  use,  a 
frame  is  allocated  to  a  buffer,  each  time  "cp_f ddi_sink"  process  model  is  executed. 
Then,  the  order  of  subqueues  is  determined  with  an  incrementing  index  according 
to  the  allocation  algorithm  employed.  Every  subqueue  has  an  associated  source 
address  field,  so  that  previously  allocated  frame's  source  address  is  maintained  in 
that  subqueue.  Two  algorithms  are  implemented  as  described  below. 

a.  Circular  Allocation  Algorithm 

Before  allocating  frames  in  a  circular  order  to  llc.sink  subqueues, 
the  source  address  of  an  incoming  frame  is  inspected  first.  If  that  frame  is  sent 
from  a  station  address  which  has  been  previously  allocated  to  that  subqueue,  the 
new  frame  is  also  buffered  in  the  same  subqueue.  Thus,  consecutive  frames  from 
the  same  source  are  sent  over  the  same  transmission  channel.  Otherwise,  allocation 
is  still  done  circularly  ignoring  the  state  of  individual  subqueues.  Because  of  the 
different  channel  data  rates,  some  buffers  can  fill  up  and  even  lead  to  frame  loss, 
unless  the  sizes  of  these  buffers  are  selected  adequately. 

b.  Empty  Selection  Algorithm 

This  algorithm  refers  to  the  allocation  of  frames  to  subqueues  hav- 
ing the  maximum  empty  slots.  The  frequency  of  the  occurrence  of  empty  slots  is 
directly  proportional  to  the  data  rate  of  transmission  channel.  Thus,  the  buffer 
sizes  needed  for  this  algorithm  are  likely  to  be  less  than  the  ones  needed  for  the 
previous  algorithm.  Allocation  of  consecutive  frames  sent  from  the  same  station  is 
still  implemented  in  the  same  manner  as  the  circular  allocation  algorithm. 
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F.     FAITHFULNESS  OF  THE  MODEL 

The  CDL  NI  model  is  developed  with  the  extensive  features  provided  by  OP- 
NET.  Modifications  to  the  original  models  are  carried  out  step-by-step,  so  that  the 
original  modularity  is  not  sacrificed  with  new  enhancements. 

The  OPNET  FDDI  protocol  model  is  studied  and  validated  in  [1].  Further 
model  improvements  of  this  thesis  are  realized  on  the  basis  of  the  results  of  this 
previous  study.  During  the  CDL  model  development,  specific  system  requirements 
were  primarily  considered  and  adapted  to  OPNET  modeling  environment. 

In  a  real  CDL  deployment,  depending  on  the  deployed  channel  hierarchy,  an 
aggregate  bit  stream  at  the  high  frequency  is  obtained  using  multiplexing  of  the 
independent  transmission  channels.  Then,  at  the  receiving  end,  demultiplexing  is 
carried  out.  Our  CDL  system  implementation  does  not  model  the  link  between 
the  output  of  the  multiplexer  and  the  input  of  the  demultiplexer.  Instead,  the 
multiplexer  input  and  the  demultiplexer  output  are  modeled  and  monitored.  In 
other  words,  the  link  is  not  modeled  at  the  aggregate  bit  stream  level,  but  at  the 
individual  channel  level.  This  permits  us  to  view  the  link  as  a  set  of  independent 
channels  rather  than  a  single  stream  of  bits  without  loosing  the  realistic  nature  of 
the  link. 

The  corruption  of  packets  in  a  real  jamming  environment  is  of  an  irregular 
nature.  The  bits  in  a  data  stream  may  be  inverted,  or  random  sequences  of  bit 
patterns  may  be  added  to  the  information  packet.  In  the  OPNET  modeling  en- 
vironment, error  allocation  is  done  by  inverting  the  bits  present  within  a  packet. 
So,  the  jammer  modeling  is  based  on  this  constraint.  In  other  words  we  can  not 
model  loss  of  the  CDL  framing  synchronization  in  OPNET.  However,  this  study 
is  targetted  at  the  data  link  layer  and  above.  Therefore,  this  limitation  does  not 
present  a  problem.  Despite  this  limitation,  since  our  jamming  models  use  a  varying 
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BER  within  the  random  durations  in  the  simulation  time  domain,  the  desired  error 
allocation  feature  is  still  provided.  In  the  model,  the  error  allocation  process  within 
a  link  is  such  that  a  random  number  of  errors  are  introduced  in  a  randomly  selected 
packet  in  each  channel.  This  is  essentially  what  real  jamming  of  the  aggregate  CDL 
bitstream  will  result  in.  Two  types  of  jamming  models  are  investigated  in  order  to 
evaluate  system  performance  in  a  wider  variety  of  scenarios. 

Finally,  interconnection  is  realized  in  terms  of  an  upcoming  bridging  standard 
[5],  so  that  dependability  of  the  model  is  ensured. 
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IV.  MODEL  TESTING 

A.  OVERVIEW 

This  chapter  provides  several  test  results  in  relation  to  the  enhanced  capabili- 
ties of  our  model.  These  tests  include  the  monitoring  of  traffic  in  the  whole  network 
for  individual  LANs  and  the  evaluation  of  transmission  capacity  allocation  algo- 
rithms for  the  return  link.  The  effects  of  different  jamming  patterns  on  the  return 
link  are  also  demonstrated.  Similarly,  the  command  link  performance  is  studied  in 
brief. 

B.  PERFORMANCE  METRICS 

During  the  simulation  tests,  a  moderate  traffic  load  is  offered  for  both  LANs 
that  are  interconnected.  The  behavior  of  the  OPNET's  FDDI  model  with  varying 
traffic  loads  was  studied  previously  [1].  Therefore,  the  tests  are  primarily  run  and 
evaluated  for  NI  functional  characteristics  and  the  CDL  link  performance  during 
jamming. 

The  transmission  capacity  allocation  algorithms  related  to  the  load  balancing 
over  multiple  links  are  monitored  in  the  llc.sink  node  of  the  CPNI.  The  buffers 
within  this  node  are  observed  in  order  to  evaluate  these  algorithms'  efficiency  with 
the  "pksize"  and  "delay"  probes  in  the  OPNET  analysis  editor.  These  probes 
are  simply  used  to  determine  the  advantages  and  drawbacks  of  the  load  balancing 
implementations.  The  "pksize"  attribute's  name  is  misleading  in  OPNET  probe 
editor  and  it  refers  to  the  number  of  packets  residing  in  a  subqueue.  Thus,  while 
"pksize"  probe  is  the  means  to  determine  the  required  buffer  sizes,  the  transmission 
waiting  periods  of  the  packets  in  the  buffers  are  monitored  with  the  "delay"  probe. 
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The  average  BER  of  the  return  link  is  monitored  on  the  SPNI  receivers  with 
"avg.ber"  probes  for  each  transmission  channel.  In  this  study,  the  BER  of  the 
command  link  during  jamming  is  not  investigated.  The  utilization  of  multiple  links 
under  different  jamming  patterns  is  also  examined  on  the  transmit  and  receive-ends 
of  the  link.  Results  of  the  different  simulation  experiments  follow  in  the  next  section. 

C.     TRAFFIC  MONITORING 

1.  Overview 

The  modifications  made  within  this  thesis  to  the  OPNET  FDDI  model 
provide  the  individual  monitoring  of  two  interconnected  LANs.  For  CDL  deploy- 
ment, the  collection  platform  LAN  is  likely  to  direct  most  of  the  traffic  to  the  return 
link,  although  there  may  be  still  an  amount  of  local  traffic  under  consideration.  On 
the  other  side,  the  surface  LAN  directs  some  of  its  traffic  to  the  command  link  while 
introducing  a  significant  amount  of  traffic  locally.  For  the  reasons  specified  above, 
each  LAN  must  be  monitored  independently  to  provide  a  realistic  representation  of 
the  entire  network. 

2.  Setup 

The  simulation  was  set  up  to  display  local  traffic  within  one  LAN  and 
the  traffic  directed  to  the  remote  LAN.  Both  LANs  consist  of  ten  FDDI  stations, 
generating  packets  at  a  constant  rate.  The  stations  generated  20000-bit  packets  at 
an  arrival  rate  of  250  packets  per  second,  so  that  50  Mbps  of  the  traffic  load  is 
expected  for  a  LAN.  The  stations  f9  and  f  19  are  specified  as  the  CPNI  and  the 
SPNI,  respectively.  While  the  surface  LAN  can  send  packets  to  all  stations  in  the 
interconnected  network  model,  the  collection  platform  LAN  is  designated  to  direct 
its  total  traffic  only  to  the  return  link.  Both  LANs  are  capable  of  generating  90 
percent  asynchronous  traffic  at  different  priorities.    Target  Token  Rotation  Time 
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(TTRT)  was  set  to  4ms,  and  necessary  synchronous  bandwidth  was  determined  as 
0.08955675  as  the  required  OPNET  parameter.  This  value  is  a  function  of  TTRT; 
it  is  computed  by  following  the  necessary  steps  as  described  in  [1]  and  amounts  to 
0.358227  ms/station. 

As  mentioned  before,  the  initial  tokens  are  launched  by  the  NIs.  Thus, 
in  the  simulation  environment  file,  the  "spawn  station"  attribute  is  disabled  by 
setting  it  to  20.  This  number  is  chosen  arbitrarily,  but  it  must  be  greater  than  the 
maximum  station  number  that  exists  in  the  entire  network  model.  This  is  just  an 
OPNET  hack  to  keep  the  "fddi.mac"  process  model  of  original  "fddi.station" 
unchanged. 

Furthermore,  the  "accelerate.token"  attribute  is  also  disabled  by  set- 
ting it  to  zero.  When  this  flag  is  enabled,  the  token  is  blocked  in  the  station  which 
has  no  packets  to  transmit.  This  procedure  leads  a  faster  simulation,  and  it  is  not 
part  of  the  real  FDDI  protocol.  The  interconnected  model  is  not  allowed  to  use  this 
shared  flag,  because  of  the  tokens  belonging  to  different  LANs. 
3.     Results 

Figure  20  shows  the  local  throughput  observed  in  the  surface  LAN.  The 
random  generation  of  destination  addresses  with  uniform  distribution  led  a  consid- 
erable amount  of  traffic  to  the  local  stations.  Figure  21  is  the  throughput  directed 
to  the  command  link  from  the  surface  LAN.  In  both  cases,  90  percent  of  the  traffic 
belongs  to  the  asynchronous  transmission  as  expected. 

Figures  22  and  23  show  the  traffic  contributed  to  the  whole  network 
by  the  collection  platform  LAN.  While  there  is  no  local  traffic  appearing  within 
this  LAN,  all  traffic  is  directed  to  the  return  fink  with  the  specified  proportion  of 
asynchronous  transmission. 
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Figure  20:     Local  throughput  of  surface  LAN. 
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Figure  21:     Traffic  directed  to  the  command  link. 
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Figure  22:     LocaJ  throughput  of  collection  platform  LAN. 
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Figure  23:     Throughput  directed  to  the  return  link. 
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D.     RETURN  LINK  PERFORMANCE 

1.  Overview 

The  station  acting  as  the  CPNI  in  the  collection  platform  LAN  is  capable 
of  buffering  packets  in  its  llc_sink  node.  The  buffering  is  realized  in  terms  of  a 
transmission  capacity  allocation  algorithm  for  the  efficient  utilization  of  the  return 
link.  The  tests  run  in  this  section  are  related  to  the  evaluation  of  these  algorithms 
and  the  link  throughput  under  jamming. 

Two  tests  are  described  here.  The  first  test  is  monitoring  of  packets 
accumulated  in  the  buffers  with  two  distinct  allocation  algorithms.  The  second  test 
is  observing  the  multiple  link  throughput  at  both  ends  of  the  CDL  link. 

2.  First  Test 

a.  Setup 

This  test  is  based  on  the  evaluation  of  different  types  of  load  bal- 
ancing over  the  multiple  links.  Both  FDDI  LANs  are  configured  with  the  same 
parameters  as  it  is  done  for  the  traffic  monitoring  tests.  In  the  simulation  environ- 
ment file,  the  "load  balancing  algorithm"  attribute  is  also  set  appropriately  for 
two  different  runs.  This  attribute  is  set  to  "0"  for  the  circular  allocation  algorithm 
as  it  is  set  to  "1"  for  the  empty  selection.  Besides,  the  llc_sink  subqueue  capacities 
are  set  to  hold  a  maximum  of  200  packets.  This  was  intended  to  observe  the  buffers' 
saturation  and  overflow  as  the  traffic  is  directed  to  the  return  link  at  a  constant 
rate. 

b.  Results 

Figure  24  shows  the  accumulation  of  packets  in  the  buffers  when 
the  circular  allocation  algorithm  is  in  use.  As  seen,  the  first  transmission  channel 
having  the  lowest  data  rate  causes  its  buffer  to  fill  up  quickly.    Consequently,  the 
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Figure  24:     Accumulation  of  packets  on  the  CPNI  buffers  with  circular  allocation. 

continuous  overflow  of  this  buffer  is  unavoidable  with  the  specified  buffer  size  as 
depicted  in  Figure  25. 

Conversely,  the  empty  selection  algorithm  results  in  equal  utilization  of 
buffers  for  the  same  traffic  load  without  introducing  any  overflow  as  shown  in  Figure 

26. 

The  queuing  delays  of  the  packets  observed  for  each  buffer  using  both 
algorithms  are  shown  in  Figures  27  and  28.  As  compared  to  the  empty  selec- 
tion algorithm,  the  circular  load  balancing  provides  a  faster  transmission  rate  for 
the  channels  having  higher  data  rates  and  introduce  a  longer  queuing  delay  for 
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Figure  25:     Buffer  overflows  in  the  CPNI  with  circular  allocation. 
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Figure  26:     Accumulation  of  packets  in  the  CPNI  buffers  with  empty  selection. 
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Figure  27:     Queing  delay  of  the  CPNI  buffers  with  circular  allocation. 
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Figure  28:     Queing  delay  of  the  CPNI  buffers  with  empty  selection. 
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the  slower  channel.  Primarily,  the  insufficient  buffer  sizes  are  the  major  drawback 
in  the  circular  allocation  algorithm,  even  though  multiple  links  are  still  efficiently 
utilized. 

As  opposed  to  the  circular  allocation,  empty  selection  algorithm  does 
not  require  greater  buffer  sizes.  It  also  offers  an  efficient  utilization  scheme  with  the 
penalty  of  more  queuing  delay  for  the  channels  with  higher  transmission  capacities. 
3.     Second  Test 

a.  Setup 

This  test  is  intended  to  verify  the  effects  of  jamming  models  on 
the  return  link.  The  same  simulation  configuration  is  used  in  this  test  as  before. 
Moreover,  as  defined  in  Chapter  III,  the  jamming  related  attributes  are  set  up  prop- 
erly to  model  two  different  jammers.  The  environment  file  used  for  the  pulsed 
jammer  simulation  is  provided  in  Appendix  H.  For  the  channel-swept  jammer  sim- 
ulation, the  same  type  of  jamming  attributes  are  set  to  identical  values  except 
"init_jam_off set".  This  attribute  is  doubled  for  each  channel  so  that  consecutive 
pulses  can  be  created  with  proportional  offsets.  The  jamming  related  attributes  of 
the  environment  file  for  the  channel-swept  jammer  simulation  is  in  Appendix  I. 

The  propagation  delay  of  the  CDL  model  is  also  specified  as  a  typical 
value  of  60  ms  in  the  "delay"  attribute  of  each  link. 

b.  Results 

Figure  29  shows  the  throughput  of  each  transmitter  channel  in  the 
CPNI  end  of  the  return  link.  As  expected,  identical  number  of  bits  are  injected  into 
the  return  link  for  the  channels  having  the  same  data  rates.  The  packets  awaiting 
transmission  in  the  buffers  do  not  contribute  to  this  statistic. 
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Figure  29:     Throughput  at  the  transmit-end  of  the  return  link. 

The  average  BERs  introduced  by  the  pulsed  jammer  and  the  channel- 
swept  jammer  are  depicted  in  Figures  30  and  31,  respectively.  As  monitored  in  the 
receivers  of  the  SPNI,  all  of  the  links  are  equally  degraded  in  the  channel-swept 
jammer's  case  due  to  the  consecutive  pulses.  In  the  presence  of  pulsed  jammer,  the 
links  exposed  to  the  longer  duration  of  jamming  pulses  are  affected  more  severely. 

Consequently,  since  the  packets  are  corrupted  due  to  jamming  dur- 
ing the  transmission,  the  throughput  attained  in  the  receive-end  is  not  the  same  as 
the  transmit-end  of  the  return  link.  The  effects  of  two  different  jamming  models  on 
the  received  throughput  can  be  seen  in  Figures  32  and  33. 
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Figure  30:     Average  BER  of  the  return  link  caused  by  pulsed  jammer. 
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Figure  31:     Average  BER  of  the  return  link  caused  by  channel-swept  jammer. 
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Figure  32:     Effect  of  pulsed  jammer  on  the  return  link  throughput. 
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Figure  33:     Effect  of  channel-swept  jammer  on  the  return  link  throughput. 
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E.     COMMAND  LINK  PERFORMANCE 

Although  the  command  link  is  modeled  with  respect  to  the  CDL  system  re- 
quirements, its  performance  is  not  studied  in  as  much  detail  as  the  return  link  in  our 
simulations.  As  described  before,  the  command  link  employs  a  relatively  low  fixed 
data  rate  in  its  channel  hierarchy  compared  to  the  return  link.  Since  multiple  links 
are  not  modeled  for  this  particular  link,  no  algorithm  for  transmission  allocation 
is  developed  in  llc.sink  node  of  the  SPNI.  As  a  result,  the  packets  waiting  for 
transmission  to  the  collection  platform  LAN  are  accumulated  in  the  single  buffer  of 
the  SPNI. 

Figure  34  shows  the  number  of  packets  buffered  over  time.  The  accumulation 
is  faster  due  to  the  lower  transmission  capacity  of  the  command  link.  This  is  also 
emphasized  with  the  buffer  queuing  delay  as  depicted  in  Figure  35.  The  asymmetric 
data  rates  existing  in  the  CDL  link  require  a  greater  buffer  size  for  the  SPNI.  This 
buffer  size  must  be  evaluated  with  respect  to  the  amount  of  traffic  injected  into  the 
CDL  by  the  surface  LAN. 

Similarly,  the  information  transferred  over  the  command  link  is  monitored  in 
both  NIs  of  the  interconnected  model.  Figure  36  is  a  simple  illustration  of  the  link 
throughput  in  transmit  and  receive-ends  when  the  command  link  is  not  exposed  to 
any  jamming. 
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Figure  34:     Accumulation  of  packets  in  the  SPNI  buffer. 
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Figure  35:     Queing  delay  of  the  SPNI. 
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Figure  36:     Throughput  at  the  transmit  and  receive-ends  of  the  command  link. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

In  this  thesis,  we  have  presented  a  performance  analysis  of  a  network  interface 
device  that  interconnects  two  remote  FDDI  LANs  using  the  CDL.  The  efficiency  of 
the  CDL  model  is  evaluated  with  two  different  jamming  patterns  that  faithfully  rep- 
resent the  real  environmental  conditions.  The  distribution  of  load  over  the  multiple 
links  is  also  investigated  using  different  transmission  capacity  allocation  algorithms 
so  that  the  overall  link  utilization  can  be  maximized.  The  need  for  such  algorithms 
is  based  on  the  near-capacity  return  link  traffic  load  that  is  expected  in  the  intercon- 
nected network.  It  is  seen  that  the  circular  allocation  algorithm  is  able  to  provide 
a  faster  transmission  for  the  channels  having  higher  data  rates  with  the  penalty  of 
increased  buffer  size  for  the  slower  channels.  When  the  empty  selection  algorithm 
is  in  use,  identical  buffer  sizes  can  be  selected  for  any  transmission  channel,  if  the 
drawback  of  longer  queuing  delays  for  faster  channels  are  acceptable. 

This  thesis  lays  the  foundation  for  simulating  the  multilink  point-to-point  pro- 
tocol over  the  CDL  in  the  further  development  of  the  network  interface  features  for 
the  CDL  project. 

B.  RECOMMENDATIONS 

Further  developments  of  our  model  will  include: 

1.  Simulation  of  a  link  monitoring  protocol  over  the  return  and  command 
link.    This  capability  will  facilitate  feedback  to  the  LAN  applications 
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(end-systems)  about  the  link  status  and  permit  end-to-end  performance 
analysis. 

2.  Incorporation  of  a  forwarding/filtering  database  in  the  NI. 

3.  Incorporation  of  a  traffic  generation  in  the  LAN  end-systems  that  is  closer 
to  the  characteristics  of  real  traffic  patterns. 

4.  Accurate  estimation  of  NI  buffer  capacity  for  individual  channels  with 
various  effective  BERs  over  the  link. 

Since  the  tool-specific  token  acceleration  feature  is  disabled  during  our  simu- 
lations, a  new  mechanism  need  to  be  employed  for  a  faster  simulation  in  a  larger 
network  model. 
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APPENDIX  A 
CPNI  SOURCE  "C"  CODE 

"cp_fddi_gen.pr.c" 

The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre- 
spond with  that  seen  in  OPNET's  text  editors. 


1  /*  Process  model  C  form  iile:  cp_fddi_gen.pr.c  */ 

2  /*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


3  /*  OPNET  system  definitions  */ 

4  # include  <opnet.h> 

5  # include  "cp_fddi_gen.pr.h" 

6  FSM_EXT_DECS 


7  /*  Header  block  */ 

8  #define  HAC_LAYER_OUT_STREAM 

9  #define  LLC_SINK_OUT_STREAM 


1  /*18APR94*/ 


10  /*  define  possible  service  classes  for  frames  */ 

11  #define  FDDI_SVC_ASYNC  0 

12  #define  FDDI_SVC_SYNC  1 


13  /*  define  token  classes  */ 

14  #define  FDDI_TK_NONRESTRICTED 

15  #define  FDDI.TK.RESTRICTED 


16  /*  State  variable  definitions  */ 


17 

typedef  struct 

18 

{ 

19 

FSM_SYS_STATE 

20 

Distribution* 

21 

Distribution* 

22 

Distribution* 

23 

Distribution* 

24 

Objid 

25 

Objid 

26 

int 

27 

int 

sv_inter_dist_ptr; 
sv_len_dist_ptr ; 
sv_dest_dist_ptr ; 
s v_pkt_pr iorit y_ptr ; 
sv_mac_objid; 
sv_my_id; 
sv_low_dest_addr ; 
sv_high_dest_addr; 
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28 

int 

29 

int 

30 

int 

31 

int 

32 

double 

33 

double 

34 

double 

35 

Ici* 

36 

Ici* 

37 

Ici* 

38 

Packet* 

39 

}  cp_fddi_gen_state; 

40 

#def ine 

pr_state_ptr 

41 

#define 

inter_dist_ptr 

42 

#def ine 

len_dist_ptr 

43 

#define 

dest_dist_ptr 

44 

#def ine 

pkt_priority_ptr 

45 

#def ine 

mac_ob j  id 

46 

#def ine 

my_id 

47 

#def ine 

low_dest_addr 

48 

#del ine 

high_dest_addr 

49 

#def ine 

station_addr 

50 

#def ine 

src_addr 

51 

#def ine 

low_pkt_priority 

52 

#def ine 

high.pkt .priority 

53 

tdefine 

arrival_rate 

54 

#def ine 

mean_pk_len 

55 

#def ine 

mac_iciptr 

56 

#def ine 

mac_iciptrl 

57 

#def ine 

llc_ici_ptr 

58 

#def ine 

pkptrl 

s v_station_addr ; 

sv_src_addr; 
sv_low_pkt .priority ; 
sv_high_pkt .priority ; 

8v_arrival_rate ; 

sv_mean_pk_len; 

sv_async_mix; 
sv_mac_iciptr; 
8v_mac_iciptrl ; 
sv_llc_ici_ptr ; 
sv.pkptrl ; 


( (cp_fddi_gen_state*)  SimI_Hod_State_Ptr) 

pr_state_ptr->sv_inter_dist_ptr 

pr_state_ptr->sv_len_dist_ptr 

pr_state_ptr->sv_dest_dist_ptr 

pr_state_ptr->sv_pkt_priority_ptr 

pr_8tate_ptr->sv_mac_obj  id 

pr_state_ptr->sv_my_id 
pr_8tate_ptr->sv_low_dest_addr 
pr_state_ptr->8v_high_dest_addr 

pr_state_ptr->8v_8tation_addr 

pr_state_ptr->sv_src_addr 
pr_state_ptr->sv_low_pkt .priority 
pr_st at e_ptr->8v_high_pkt .priority 

pr_state_ptr->8v_arrival_rate 
pr_state_ptr->sv_async_mix 

pr_state_ptr->sv_mac_iciptr 

pr_8tate_ptr->sv_mac_iciptrl 

pr_state_ptr->sv_llc_ici_ptr 

pr_state_ptr->sv_pkptrl 


59  /*  Process  model  interrupt  handling  procedure  */ 


60  void 

61  cp_fddi_gen  () 

62  { 

63  Packet   *pkptr; 

64  int       pklen ; 

65  int       dest.addr; 

66  int       i,  restricted; 

67  int       pkt_prio; 


68 


FSM.ENTER  (cp_lddi_gen) 
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69  FSM_BLOCK_SWITCH 

70  { 

71  /* */ 

72  /**  state  (INIT)  enter  executives  **/ 

73  FSM_STATE_ENTER_UNFORCED  (0,  stateO_enter_exec,  "INIT") 

74  { 

75  /*  determine  id  of  own  processor  to  use  in  finding  attrs  */ 

76  my_id  =  op_id_self  (); 

77  /*  determine  address  range  for  uniform  desination  assignment  */ 

78  op_ima_obj_attr_get  (my_id,  "low  dest  address",  ftlow_dest_addr) ; 

79  op_ima_obj_attr_get  (my_id,  "high  dest  address",  fthigh_dest_addr) ; 

80  /*  determine  object  id  of  connected  'mac'  layer  process  */ 

81  mac.objid  =  op_topo_assoc  (my_id,  0PC_T0P0_ASS0C_0UT, 

82  0PC_0BJMTYPE_M0DULE, 

83  MAC_LAYER_OUT_STREAM) ; 

84  /*  determine  the  address  assigned  to  it  */ 

85  /*  which  is  also  the  address  of  this  station  */ 

86  op_ima_obj_attr_get  (mac.objid,  "station.address",  ftstation.addr) ; 


87  /*  set  up  a  distribution  for  generation  of  addresses  */ 

88  dest_dist_ptr  =  op_dist_load  ("unif orm_int" ,  low_dest_addr, 

89  high_dest_addr) ; 

90  /*  added  26DEC93  */ 

91  /*  determine  priority  range  for  uniform  traffic  generation  */ 

92  op_ima_obj_attr_get  (my_id,  "high  pkt  priority",  &high_pkt .priority) ; 

93  op_ima_obj_attr_get  (my_id,  "low  pkt  priority",  &low_pkt_priority) ; 

94  /*  set  up  a  distribution  for  generation  of  priorities  */ 

95  pkt_priority_ptr  =  op_dist_load  ("uniform.int",  low_pkt .priority, 

96  high_pkt .priority) ; 

97  /*  above  added  26DEC93  */ 


98  /*  also  determine  the  arrival  rate  for  packet  generation  */ 

99  op_ima_obj_attr_get  (my_id,  "arrival  rate",  ftarrival_rate) ; 

100  /*  determine  the  mix  of  asynchronous  and  synchronous  */ 

101  /*  traffic.  This  is  expressed  as  the  proportion  of  */ 

102  /*  asynchronous  traffic,  i.e  a  value  of  1.0  indicates  */ 

103  /*  that  all  the  produced  traffic  shall  be  asynchronous.  */ 

104  op_ima_obj_attr_get   (my_id,   "async_mix",   Jtasync.mix)  ; 

105  /*  set  up  a  distribution  for  arrival  generations  */ 
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106  if   (arrival.rate    !=  0.0) 

107  { 

108  /*  arrivals  are  exponentially  distributed,  with  given  mean 

109  inter_dist_ptr  =  op_dist_load  ("constant",  1.0  /  arrival_r 

110  0.0); 

111  /*  determine  the  distribution  for  packet  size  */ 

112  op_ima_obj_attr_get  (my_id,  "mean  pk  length", 

113  taean_pk_len) ; 

114  /*  set  up  corresponding  distribution  */ 

115  len_dist_ptr  =  op_dist_load  ("constant",  mean_pk_len,  0.0) 

116  /*  designate  the  time  of  first  arrival  */ 

117  fddi_gen_schedule  (); 

118  /*  set  up  an  interface  control  information  (ICI)  structure 

119  /*  to  communicate  parameters  to  the  mac  layer  process  */ 

120  /*  (it  is  more  efficient  to  set  one  up  now  and  keep  it  */ 

121  /*  as  a  state  variable  than  to  allocate  one  on  each  packet 

122  xfer)  */ 

123  mac.iciptr  =  op_ici_create  ("fddi_mac_req") ; 

124  } 

125  } 


126  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

127  FSM.EXIT  (1 ,cp_fddi_gen) 


128  /**  state  (INIT)  exit  executives  **/ 

129  FSM_STATE_EXIT_UNF0RCED  (0,  stateO.exit.exec,  "IHIT") 

130  { 

131  } 


132  /**  state  (INIT)  transition  processing  **/ 

133  FSM_TRANSIT_F0RCE  (1,  statel.enter.exec,  ;) 

134  /* */ 


135  /**  state  (ARRIVAL)  enter  executives  **/ 

136  FSM_STATE_EHTER_UHFORCED  (1,  statel.enter.exec,  "ARRIVAL") 

137  { 

138  /*  This  station  should  receive  frames  from  the  other  Ian  as  long  as  * 

139  /*  there  are  frames  in  the  input  streams  addressed  to  this  Ian  */ 

140  /*check  if  the  interrupt  type  is  stream  interrupt  *//*12APR94*/ 

141  if(op_intrpt_type()  ==  OPC.INTRPT.STRM) 

142  { 
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143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 


/*  if  it  is,  get  the  packet  in  the  input  stream  causing  interrupt  */ 

pkptrl  =  op_pk_get(op_intrpt_strm()) ; 

/*  get  the  destination  address  of  the  frame  */ 

/*  16APR94  */ 

op_pk_nfd_get (pkptrl,  "dest_addr" ,  kdest.addr) ; 

/*  check  if  this  frame  destined  for  the  local  bridge  station  */ 

if (dest_addr  ==  station.addr) 

/*  if  it  is,  send  the  packet  to  llc_sink  directly  */ 

/*  in  order  to  prevent  overhead  of  mac  access  */ 

op_pk_  s  end ( pkptr 1 , 
LLC_SIHK_0UT_STREAM) ; /+19APR94*/ 
else 

/*  this  packet  is  to  send  to  mac  */ 

{ 

/*  determine  the  source  address  of  the  frame  */ 

op_pk_nfd_get (pkptrl,  "src_addr",  ftsrc_addr) ; 

/*  set  up  an  ICI  structure  to  communicate  parameters  to  */ 

/*  MAC  layer  process  */ 

mac_iciptrl  =  op_ici_create("fddi_mac_req") ; 

/*  place  the  original  source  address  into  the  ICI  *//* 


16APR94  */ 
*/ 

/♦12APR94*/ 

are  assumed  to  have*/ 

accumulate  */ 

their  destinations  */ 

FDDI_SVC_SYNC) ; 
FDDI_TK_K0NRESTRICTED) ; 


/*  "fddi_mac_req"  is  modified  so  that  it  contains  the  original 

/*  source  address  from  the  remote  Ian  */ 
op_ici_attr_set(mac_iciptrl,  "src_addr",  src_addr) ; 
/*  place  the  destination  address  into  the  ICI  */ 

op_ici_attr_set(mac_iciptrl,  "dest_addr",  dest_addr) ; 
/*  assign  the  service  class  and  requested  token  class  */ 
/*  At  this  moment  the  frames  coming  from  the  remote  Ian 

/*  the  same  priority  as  synchronous  frames  in  order  not  to 

/*  packets  on  the  bridge  station  mac  and  instead  to  deliver 

/*  as  soon  as  possible  */ 
op_pk_nfd_set (pkptrl,  "pri",  8); 
op_ici_attr_set (mac_iciptrl ,  "svc.class" , 

op_ici_attr_set(mac_iciptrl,  "pri",  8); 
op_ici_attr_set (mac_iciptrl ,  "tk_class" , 

/*  send  the  packet  coupled  with  the  ICI  */ 
op_ici_install(mac_iciptrl) ; 
op_pk_send(pkptrl,  MAC_LAYER_0UT_STREAM) ; 


/*  otherwise,  generate  the  frame  : 12APR94  */ 
else 

{ 

/*  determine  the  length  of  the  packet  to  be  generated  */ 
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194 


pklen  =  op_dist_outcome  (len_dist_ptr) ; 


195 
196 
197 
198 
199 
200 

201 
202 

203 
204 


/*  determine  the  destination  */ 

/*  dont  alios  this  station's  address  as  a  possible  outcome  */ 
gen_packet : 

dest_addr  =  op_dist_outcome  (dest_dist_ptr) ; 
if  (dest_addr  !=  -1  kt   dest_addr  ==  station.addr) 
goto  gen_packet; 

/*  26DEC94  ft  29JAN94:  determine  its  priority  */ 
pkt.prio  =  op_dist_outcome  (pkt_priority_ptr) ; 

/*  create  a  packet  to  send  to  mac  */ 
pkptr  =  op_pk_create_fmt  ("fddi_llc_fr") ; 


205 
206 

207 
208 


/*  assign  its  overall  size.  */ 
op_pk_total_size_set  (pkptr,  pklen) ; 

/*  assign  the  time  of  creation  */ 

op_pk_nfd_set  (pkptr,  "cr_time",  op_sim_time  ()); 


209 
210 
211 

212 
213 

214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 


FDDI_SVC_ASYNC) ; 


FDDI_SVC_SYNC) ; 


/*  place  the  destination  address  into  the  ICI  */ 
/*  (the  protocol.type  field  sill  default)  */ 
op_ici_attr_set  (mac_iciptr,  "dest_addr" ,  dest_addr) ; 

/*  place  the  source  address  into  the  ICI  *//*  17APR94*/ 
op_ici_attr_set  (mac_iciptr,  "src_addr",  station_addr) ; 

/*  assign  the  priority,  and  requested  token  class  */ 
/*  also  assign  the  service  class;  29JAN94:  the  fddi_llc_fr  */ 
/*  format  is  modified  to  include  a  "pri"  field.  */ 

if  (op_dist_uniform  (1.0)  <=  async_mix) 

{ 
op_pk_nfd_set  (pkptr,  "pri",  pkt.prio) ;   /*  29JAN94  */ 

op_ici_attr_set  (mac_iciptr,  "svc_class", 

op_ici_attr_set  (mac_iciptr,  "pri",  pkt.prio);   /*  29JAH94  */ 

} 
else{ 
op_pk_nfd_set  (pkptr,  "pri",  8);  /*  29JAN94  */ 

op_ici_attr_set  (mac_iciptr,  "svc_class", 

op_ici_attr_set  (mac.iciptr,  "pri",  8);    /*  29JAN94  */ 
} 


230  /*  Request  only  nonrestricted  tokens  after  transmission  */ 

231  op_ici_attr_set  (mac.iciptr,  "tk_class", 

232  FDDI_TK_H0NRESTRICTED); 

233  /*  Having  determined  priority,  assign  it;  26DEC93  */ 

234  /*  op_ici_attr_set  (mac_iciptr,  "pri",  pkt.prio);  */ 
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235  /*  send  the  packet  coupled  with  the  ICI  */ 

236  op_ici_install  (mac.iciptr) ; 

237  /*  check  if  destination  address  is  in  the  remote  Ian  */ 

238  if (dest.addr  >  9) 

239  /*  if  it  is,  this  packet  is  to  send  llc_sink  directly  */ 

240  op_pk_send  (pkptr,  LLC_SINK_OUT_STREAM) ; 

241  /*18APR94*/ 

242  else 

243  /*  if  not,  the  packet  is  destined  for  local  Ian,  so  send  to  mac 

244  */ 

245  op_pk_send  (pkptr,  MAC_LAYER_OUT_STREAM) ; 

246  /*  schedule  the  next  arrival  */ 

247  fddi_gen_schedule  (); 

248  } 

249  } 


250  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

251  FSM.EXIT  (3,cp_fddi_gen) 


252  /**  state  (ARRIVAL)  exit  executives  **/ 

253  FSM_STATE_EXIT_UNFORCED  (1,  state l_exit_exec,  "ARRIVAL") 

254  { 

255  } 


256  /**  state  (ARRIVAL)  transition  processing  **/ 

257  FSM_TRANSIT_FORCE  (1,  statel_enter_exec,  ;) 

258  /* */ 


259 


260  FSM.EXIT  (0,cp_fddi_gen) 

261  } 


262  void 

263  cp_fddi_gen_svar  (prs_ptr,var_name,var_p_ptr) 

264  cp_fddi_gen_state       *prs_ptr; 

265  char  *var_name,  **var_p_ptr; 

266  { 

267  FII  (cp_fddi_gen_svar  (prs.ptr)) 
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268  *var_p_ptr  =  VOS.NIL; 

269  il  (Vos_String_Equal  ("inter_dist_ptr"  ,  var.name)) 

270  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_inter_dist_ptr) ; 

271  il  (Vos_String_Equal  ("len_dist_ptr"  ,  var.name)) 

272  *var_p_ptr  =  (char  *)  (fcprs_ptr->sv_len_dist_ptr) ; 

273  it   (Vos_String_Equal  ("dest_dist_ptr"  ,  var.name)) 

274  *var_p_ptr  =  (chax  *)  (fcprs_ptr->sv_dest_dist_ptr) ; 

275  il  (Vos_String_Equal  ("pkt.priority.ptr"  ,  var.name)) 

276  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_pkt_priority_ptr) ; 

277  il  (Vos_String_Equal  ("mac_objid"  ,  var_name)) 

278  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_mac_objid) ; 

279  il  (Vos_String_Equal  ("my.id"  ,  var.name)) 

280  *var_p_ptr  =  (char  *)  (*prs_ptr->sv_my_id) ; 

281  il  (Vos_String_Equal  ("low.dest.addr"  ,  var_name)) 

282  *var_p_ptr  =  (char  *)  (Jtprs_ptr->sv_low_dest_addr) ; 

283  il  (Vos_String_Equal  ("high_dest_addr"  ,  var_name)) 

284  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_high_dest_addr) ; 

285  il  (Vos_String_Equal  ("station_addr"  ,  var_name)) 

286  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_station_addr) ; 

287  il  (Vos_String_Equal  ("src.addr"  ,  var.name)) 

288  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_src_addr) ; 

289  il  (Vos_String_Equal  ("low.pkt .priority"  ,  var.name)) 

290  *var_p_ptr  =  (char  *)  (fcprs_ptr->sv_low_pkt_priority) ; 

291  il  (Vos.String.Equal  ("high.pkt .priority"  ,  var.naoe)) 

292  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_high_pkt_priority) ; 

293  il  (Vos.String.Equal  ("arrival.rate"  ,  var.name)) 

294  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_arrival_rate) ; 

295  il  (Vos.String.Equal  ("mean.pk.len"  ,  var.name)) 

296  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_mean_pk_len) ; 

297  il  (Vos.String.Equal  ("async.mix"  ,  var.name)) 

298  *var_p_ptr  =  (char  *)  (fcprs_ptr->sv_async_mix) ; 

299  il  (Vos.String.Equal  ("mac.iciptr"  ,  var.name)) 

300  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_mac_iciptr) ; 

301  il  (Vos.String.Equal  ("mac.iciptrl"  ,  var.name)) 

302  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_mac_iciptrl) ; 

303  il  (Vos.String.Equal  ("llc.ici.ptr"  ,  var.name)) 

304  *var_p_ptr  =  (char  *)  (fcprs_ptr->sv_llc_ici_ptr) ; 

305  il  (Vos.String.Equal  ("pkptrl"  ,  var.name)) 

306  *var_p_ptr  =  (char  *)  (Aprs_ptr->sv_pkptrl) ; 

307  F0UT; 

308  } 


309 

void 

310 
311 

cp_lddi_gen_diag  () 
{ 

312 

Packet 

♦pkptr ; 
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313  int  pklen; 

314  int  dest.addr; 

315  int  i,  restricted; 

316  int         pkt.prio; 

317  FIH  (cp_fddi_gen_diag  ()) 


318  FOUT; 

319  } 


320  void 

321  cp_iddi_gen_terminate  () 

322  { 

323  Packet         *pkptr; 

324  int  pklen; 

325  int  dest.addr; 

326  int  i,  restricted; 

327  int        pkt_prio; 

328  FIH  (cp_iddi_gen_terminate  ()) 


329  FOUT; 

330  } 


331  Compcode 

332  cp_iddi_gen_init  (pr_state_pptr) 

333  cp_fddi_gen_state  **pr_state_pptr; 

334  { 

335  static  VosT_Cm_Obtype    obtype  =  OPC.HIL; 

336  FIH  (cp_iddi_gen_init  (pr_state_pptr)) 

337  il  (obtype  ==  OPC.HIL) 

338  { 

339  if  (Vos_Catmem_Register  ("proc  state  vars  (cp_iddi_gen)", 

340  sizeol  (cp_lddi_gen_state) ,  Vos_Hop,  ftobtype)  ==  VOSC_FAILURE) 

341  FRET  (0PC_C0MPC0DE_FAILURE) 

342  } 

343  il  ((*pr_state_pptr  =  (cp_lddi_gen_state*)  Vos_Catmem_Alloc  (obtype,  1)) 

344  OPC.HIL) 

345  FRET  (0PC_C0MPC0DE_FAILURE) 

346  else 

347  { 
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348  (*pr_state_pptr)->current_block  =  0; 

349  FRET  (0PC_C0MPC0DE_SUCCESS) 

350  } 

351  } 


352  /*  static  added  2DEC93,  on  advice  from  MIL3  */ 

353  static 

354  fddi_gen_schedule  () 

355  { 

356  double  inter.time; 

357  /*  obtain  an  interarrival  period  according  to  the  */ 

358  /*  prescribed  distribution  */ 

359  inter_time  =  op_dist_outcome  (inter_dist_ptr) ; 

360  /*  schedule  the  arrival  of  next  generated  packet  */ 

361  op_intrpt_schedule_self  (op_sim_time  ()  +  inter_time,  0) ; 

362  > 


74 


APPENDIX  B 
CPNI  MAC  "C"  CODE 

"cp_fddi_mac.pr.c" 

The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre- 
spond with  that  seen  in  OPNET's  text  editors. 


1  /*  Process  model  C  form  file:  cp_fddi_mac.pr.c  */ 

2  /*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


3  /*  OPNET  system  definitions  */ 

4  # include  <opnet.h> 

5  #include  "cp_fddi_mac.pr.h" 

6  FSM.EXT.DECS 


7  /*  Header  block  */ 

8  /*  Define  a  timer  structure  used  to  implement  */ 

9  /*  the  TRT  and  THT  timers.   The  primitives  defined  to  */ 

10  /*  operate  on  these  timers  can  be  found  in  the  */ 

11  /*  function  block  of  this  process  model.  */ 

12  typedef  struct 

13  { 

14  int  enabled; 

15  double  start .time; 

16  double  accum; 

17  double  target_accum; 

18  }  FddiT.Timer; 


19  /*  Declare  certain  primitives  dealing  with  timer. s  */ 

20  double  fddi_timer_remaining  (); 

21  FddiTJTimer*     fddi_timer_create  (); 

22  double  fddi_timer_value  (); 

23  /*  Scratch  strings  for  trace  statements  */ 

24  char  strO  [512] ,  strl  [512] ; 


25  /*  define  constants  particular  to  this  implementation  */ 

26  #define  FDDI_MAX_STATIONS  512 

27  /*  define  possible  values  for  the  frame  control  field  */ 

28  #define  FDDI_FC_FRAME  0 
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29  #define  FDDI.FC.TOKEN  1 

30  /*  define  possible  service  classes  for  frames  */ 

31  #define  FDDI_SVC_ASYNC  0 

32  #define  FDDI.SVC.SYNC  1 

33  /*  define  input  stream  indices  */ 

34  #define  FDDI_LLC_STRM_IH  1 

35  #define  FDDI.PHY.STRM.IN  0 

36  /*  define  output  stream  indices  */ 

37  #define  FDDI_LLC_STRM_OUT  1 

38  #define  FDDI_PHY_STRM_OUT  0 

39  /*  define  token  classes  */ 

40  #define  FDDI_TK_NONRESTRICTED  0 

41  #define  FDDI_TK_RESTRICTED  1 

42  /*  Ring  Constants  */ 

43  #define  FDDI_TX_RATE  1.0e+08 

44  #define  FDDI_SA_SCAH_TIME  28.0e-08 

45  /*  Token  transmission  time:  based  on  6  symbols  plus  16  symbols  of  preamble  */ 

46  #define  FDDIC.TOKEN.TX.TIME  88.0e-08 


47  /*  Codes  used  to  differentiate  remote  interrupts  */ 

48  #define  FDDIC.TRT.EXPIRE  0 

49  #define  FDDIC.TK.INJECT  1 


50  /*  Define  symbolic  expressions  used  on  transition  */ 

51  /*  conditions  and  in  executive  statements.  */ 

52  #define  TRT.EXPIRE  \ 

53  (op.intrpt.type  ()  ==  OPC.INTRPT.REMOTE  kk   op_intrpt_code  ()  ==  FDDIC.TRT.EXPIRE) 

54  #define  TK.RECEIVED  \ 

55  phy.arrival  kk  \ 

56  frame.control  ==  FDDI.FC.TOKEN 

57  #define  RC.FRAME  \ 

58  phy.arrival  kk  \ 

59  frame.control  ==  FDDI.FC.FRAME 

60  #define  FRAME.ARRIVAL  \ 

61  op.intrpt.type  ()  ==  OPC.INTRPT.STRM  kk  \ 

62  op.intrpt.strm  ()  ==  FDDI_LLC.STRM.IH 

63  #define  STRIP  my.address  ==  src.addr 

64  /*  Define  the  maximum  value  for  ring.id.   This  is  the  */ 
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65  /*  maximum  number  of  FDDI  rings  that  can  exist  in  a  */ 

66  /*  simulation.   Note  that  if  this  number  is  changed,  */ 

67  /*  the  initialization  for  fddi_claim_start  below  must  */ 

68  /*  also  be  modified  accordingly.  */ 

69  #define  FDDI.MAX.RIHG.ID  8 

70  /*  Declare  the  operative  TTRT  value  'T.Opr'  which  is  the  final  */ 

71  /*  negotiated  value  of  TTRT.   This  value  is  shared  by  all  stations  */ 

72  /*  on  a  ring  so  that  all  agree  on  its  value.  */ 

73  double  fddi_t_opr  [FDDI_MAX_RING_ID] ; 

74  #define  Fddi_T_0pr  (fddi_t_opr  [ring.id]) 

75  /*  This  flag  indicates  that  the  negotiation  for  the  final  TTRT  */ 

76  /*  has  not  yet  begun.   It  is  statically  initialized  here,  and  */ 

77  /*  is  reset  by  the  first  station  which  modifies  T.Opr.  */ 

78  /*  Initialize  to  1  for  all  rings.*/ 

79  static 

80  int  fddi_claim_start  [FDDI.MAX.RIHG.ID]  =  {1,1,1,1,1,1,1,1}; 

81  #define  Fddi_Claim_Start  (fddi_claim_start  [ring_id]) 


82  /*  Declare  station  latency  parameters.   */ 

83  /*  These  are  true  globals,  so  they  do  not  need  to  be  arrays.  */ 

84  double  Fddi.St .Latency; 

85  double  Fddi_Prop_Delay; 

86  /*  Declare  globals  for  Token  Acceleration  Mechanism.  */ 

87  /*  Hop  delay  and  token  acceleration  are  true  globals.  */ 

88  double  Fddi.Tk.Hop.Delay; 

89  static 

90  int  Fddi_Tk_Accelerate  =  1; 

91  /*  These  are  actually  values  shared  by  all  nodes  on  a  ring,  */ 

92  /*  so  they  must  be  defined  as  arrays.  */ 

93  double  fddi_tk_block_base_time  [FDDI.MAX.RIHG.ID]; 

94  #define  Fddi_Tk_Block_Base_Time  (fddi_tk_block_base_time  [ring_id]) 

95  int  fddi_tk_block_base_station  [FDDI_MAX_RING_ID] ; 

96  #define  Fddi_Tk_Block_Base_Station  (fddi.tk.block.base.station  [ring.id] ) 

97  int  fddi_tk_blocked  [FDDI_MAX_RING_ID] ; 

98  #define  Fddi_Tk_Blocked  (fddi_tk_blocked  [ring.id]) 

99  int  fddi_num_stations  [FDDI_MAX_RING_ID] ; 

100  #define  Fddi_Num_Stations  (fddi_num_stations  [ring.id]) 

101  int  fddi.num.registered  [FDDI_MAX_RING_ID] ; 

102  tdefine  Fddi.Hum.Registered  (fddi_num_registered  [ring.id]) 

103  Objid  fddi.address.table  [FDDI_MAX.RIHG.ID] [FDDI.MAX.STATIOHS] ; 

104  #define  Fddi.Address.Table  (fddi.address.tabl'e  [ring_id]) 
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105  /*  Below  is  part  of  the  OPBUG  2081  patch;  FB  ended  here,  before.  -lix  */ 

106  /*  Event  handles  for  the  TRT  are  maintained  at  a  global  level  to  */ 

107  /*  allow  token  acceleration  mechanism  to  adjust  these  as  necessary  */ 

108  /*  when  blocking  and  reinjecting  the  token.  TRT_handle  simply  */ 

109  /*  represents  the  TRT  for  the  local  MAC  */ 

110  Evhandle  fddi_trt_handle  [FDDI_MAI_RING_ID] [FDDI_HAX_STATI0NS] ; 

111  #define  Fddi_Trt_ Handle  (fddi_trt_handle  [ring.id] ) 

112  #define  TRTJiandle  Fddi_Trt_Handle  [my.address] 

113  /*  Similarly,  the  TRT  data  structure  is  maintained  on  a  global  level.  */ 

114  FddiT.Timer*  fddi.trt  [FDDI_MAX_RING_ID]  [FDDI_MAX_STATI0NS] ; 

115  #define  Fddi.Trt  (fddi.trt  [ring_id]) 

115  #define  TRT  Fddi.Trt  [my_address] 

116  /*  Registers  to  record  the  expiration  time  of  each  TRT  when  token  is  blocked.  */ 

117  double  fddi_trt_exp_time  [FDDI_MAX_RING_ID]  [FDDI_MAX_STATI0NS] ; 

118  #define  Fddi_Trt_Exp_Time  (fddi_trt_exp_time  [ring.id]) 

119  /*  the  'Late_Ct'  flag  is  declared  on  a  global  level  so  that  it  can  be  */ 

120  /*  set  at  the  tim  ewhere  the  token  is  injected  back  into  the  ring.   */ 

121  int  fddi_late_ct  [FDDI_MAX_RING_ID]  [FDDI.MAX.STATIONS] ; 

122  #define  Fddi_Late_Ct  (fddi_late_ct  [ring.id]) 

123  #define  Late.Ct  Fddi_Late_Ct  [my_address] 


124  /*  Convenient  macro  for  setting  TRT  for  a  given  station  and  absolute  time.  */ 

125  #define  TRT_SET(station_id,abs_time)  \ 

126  fddi_timer_set  (Fddi_Trt  [station_id] ,  abs.time  -  op_sim_time()) ;  \ 

127  Fddi_Trt .Handle  [station_id]  =  op_intrpt_schedule_remote  (abs_time,  \ 

128  FDDIC_TRT_EXPIRE,  Fddi_Address_Table  [station.id] ) ; 


129  /*  State  variable  definitions  */ 

130  typedef  struct 

131  { 

132  FSM_SYS_STATE 

133  int  sv_ring_id; 

134  FddiT.Timer*  sv_THT; 

135  double  sv_T_Req; 

136  double  sv_T_Pri  [8]; 

137  Objid  sv_my_objid; 

138  int  sv_spawn_token; 

139  int  sv_my_address; 

140  int  sv_orig_src_addr; 
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141  Packet* 

142  double 

143  double 

144  int 

145  int 

146  int 

147  Ici* 

148  int 

149  }  cp_iddi_mac_state; 

150  #define  pr_state_ptr 

151  tdefine  ring.id 

152  #def ine  THT 

153  #def ine  T_Req 

154  #de*ine  T_Pri 

155  #define  my_objid 

156  #define  spavn.token 

157  #def ine  my.address 

158  #define  orig_src_addr 

159  #def ine  tk_pkptr 

160  #define  sync.bandwidth 

161  #define  sync_pc 

162  #def ine  restricted 

163  #deiine  res_peer 
164#dexine  tk_registered 

165  Sdeiine  to_llc_ici_ptr 

166  #dexine  tk_trace_on 


sv_tk_pkptr; 

sv_sync_bandwidth; 

sv_sync_pc; 

sv_restricted; 

sv_res_peer; 

sv_tk_registered; 

sv_to_llc_ici_ptr; 

sv_tk_trace_on; 


( (cp_lddi_mac_state*)  SimI_Mod_State_Ptr) 
pr_state_ptr->sv_ring_id 
pr_state_ptr->sv_THT 
pr_state_ptr->sv_T_Req 
pr_state_ptr->sv_T_Pri 
pr.stat e_ptr->sv_my_ob j id 
pr_state_ptr->sv_spawn_token 
pr_state_ptr->sv_my_address 
pr.stat e_ptr->sv_orig_src_addr 
pr_state_ptr->sv_tk_pkptr 
pr_state_ptr->sv_sync_bandoidth 
pr_state_ptr->sv_sync_pc 
pr.stat e_ptr->sv_restricted 
pr.stat e_ptr->sv_res_peer 
pr.stat e_ptr->sv_tk_registered 
pr.stat e_ptr->sv_to_llc_ici_ptr 
pr_state_ptr->sv_tk_trace_on 


167  /*  Process  model  interrupt  handling  procedure  */ 


168  void 

169  cp_fddi_mac  () 

170  { 

171  /*  Packets  and  ICI's  */ 

172  Packet*  mac_irame_ptr; 

173  Packet*  pdu.ptr; 

174  Packet*  pkptr; 

175  Packet*  data.pkptr; 

176  Ici*  ici.ptr; 

177  /*  Packet  Fields  and  Attributes  */ 

178  int  req_pri,  svc_class,  req_tk_class; 

179  int  frame_control,  src_addr,  dest_addr; 

180  int  pk.len,  pri.level; 

181  /*  Token  -  Related  */ 
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182  int  tk_usable,  res_station,  tk_class; 

183  int  current_tk_class; 

184  double  accum.sync; 

185  /*  Timer  -  Related  */ 

186  double  tz.time,  timer_remaining,  accum_ bandwidth; 

187  double  tht_value; 

188  /*  Miscellaneous  */ 

189  int  i; 

190  int  spavn.station,  phy_arrival; 

191  char  error_string  [512]; 

192  int  num_frames_sent,  num.bits.sent; 

193  /*  26DEC93:  loop  management  variables,  used  in  RCV.TK  */ 

194  /*  and  ENCAP  states.  -Mix  */ 

195  int        HUM.PRIOS; 

196  int       punt; 

197  int        q_check; 


198  FSM.ENTER  (cp_f ddi.mac) 

199  FSM_BLOCK_SWITCH 

200  { 

201  /* */ 

202  /**  state  (INIT)  enter  executives  **/ 

203  FSM_STATE_ENTER_F0RCED  (0,  stateO.enter.exec,  "IHIT") 

204  { 

205  /*  Obtain  the  station's  address  .  This  is  an  attribute  */ 

206  /*  ol  this  process.  Addressing  is  simplified  by  */ 

207  /*  simply  using  integers,  and  only  one  mode.  */ 

208  /*  This  mode  is  16  bit  addressing  unless  the  */ 

209  /*  packet  format  'fddi_mac_fr'  is  modified.  */ 

210  my.objid  =  op_id_self () ;  /*  29DEC93  */ 

211  op_ima_obj_attr_get  (my.objid,  "station_address",  ftmy.address) ; 

212  /*  Register  the  station's  object  id  in  a  global  table.  */ 

213  /*  This  table  is  used  by  the  mechanism  which  improves  */ 

214  /*  simulation  efficiency  by  'jumping  over'  idle  periods  */ 

215  /*  rather  than  circulating  an  unusable  token.  */ 

216  fddi_station_register  (my_address,  my.objid); 


217  /*  Obtain  the  station  latency  for  tokens  and  frames.  */ 

218  /*  Default  value  is  set  at  100  nanoseconds.  */ 

219  Fddi_St_Latency  =  100.0e-09; 

220  op_ima_sim_attr_get  (0PC_IMA_D0UBLE,  "station.latency",  ftFddi_St_Latency) ; 
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221  /*  Obtain  the  propagation  delay  separating  stations.  */ 

222  /*  This  value  is  given  in  seconds  with  default  value  3.3  microseconds.  */ 

223  Fddi_Prop_Delay  =  3.3e-06; 

224  op_ima.sim_attr.get  (0PC_IMA_D0UBLE,  "prop.delay" ,  ftFddi.Prop.Delay) ; 

225  /*  Derive  the  Delay  for  a  'hop'  of  a  freely  circulating  packet.  */ 

226  Fddi_Tk_Hop_Delay  =  Fddi_Prop_Delay  +  Fddi_St_Latency; 


227  /*  The  T_Pri  □  state  variable  array  supports  priority  */ 

228  /*  assignments  on  a  station  by  station  basis  by  */ 

229  /*  establishing  a  correspondence  between  integer  priority  */ 

230  /*  levels  assigned  to  frames  and  the  maximum  values  of  the  */ 

231  /*  token  holding  timer  (THT)  which  would  allow  packets  to  be  */ 

232  /*  sent.  Eight  levels  are  supported  here,  but  this  can  easily  */ 

233  /*  be  changed  by  redimensioning  the  priority  array.  */ 

234  /*  By  default  all  levels  are  identical  here,  allowing  */ 

235  /*  any  frame  to  make  use  of  the  token,  so  that  in  fact  */ 

236  /*  priority  levels  are  not  used  in  the  default  case.  */ 

237  /*  01JAN94:  (8-i)  is  a  quick  attempt  to  impart  different  weighting      */ 

238  /*  scales  on  each  priority  level,  and  is  not  necessarily  realistic. -Nix  */ 

239  /*  Be  aware  of  integer-double  arithmetic  conflicts  ie,  1/8  =  0.  -Nix    */ 

240  op_ima_obj_attr_get(my_objid,    "T.Req",   ftT.Req) ; 

241  for  (i  =  0;    i  <  8;    i++) 

242  { 

243  T_Pri[i]   =   ((double) (i  +  1.0) /8.0)   *  Fddi.T.Opr; 

244  /*  print* ("MAC  INIT:  T.PriC'/.d]  is  */.lf ;  */ 

245  /*   Fddi.T.Opr  is  y.lfXn",  i,  T_Pri[i],  Fddi.T.Opr);  */ 

246  } 


247  /*  Create  the  token  holding  timer  (THT)  used  to  restrict  the  */ 

248  /*  asynchronous  bandwidth  consumption  of  the  station  */ 

249  THT  =  fddi.timer.create  (); 

250  /*  Create  the  token  rotation  timer  (TRT)  used  to  measure  the  */ 

251  /*  rotations  of  the  token,  detect  late  tokens  and  initialize  */ 

252  /*  the  THT  timer  before  asynchronous  tranmsmissions.  */ 

253  TRT  =  fddi.timer.create  (); 

254  /*  Set  the  TRT  timer  to  expire  in  one  TTRT  */ 

255  TRT.SET  (my.address,  op.sim.time  ()  +  Fddi.T.Opr); 
256 

257  /*  Initialize  the  Late.Ct  variable  which  keeps  track.  */ 

258  /*  of  the  number  of  TRT  expirations.  */ 

259  Late.Ct  =  0; 

260  /*  initially  the  ring  operates  in  nonrestricted  mode  */ 

261  restricted  =  0; 
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262  /*  Create  an  Interlace  Control  Information  structure  */ 

263  /*  to  use  when  delivering  received  frames  to  the  LLC.  */ 

264  to_llc_ici_ptr  =  op_ici_create  ("fddi_mac_ind"); 

265  /*  The  'tk_registered'  variable  indicates  if  the  station  */ 

266  /*  has  registered  its  intent  to  use  the  token.  */ 

267  tk.registered  =  0; 


268  /*  Determine  if  the  model  is  to  make  use  of  the  token  */ 

269  /*  'acceleration'  mechanism.   If  not,  every  passing  of  the  */ 

270  /*  token  will  be  explicityly  modeled,  leading  to  large  */ 

271  /*  number  of  events  being  scheduled  when  the  ring  is  idle  */ 

272  /*  (i.e.  no  stations  have  data  to  send).  */ 

273  op_ima_sim_attr_get  (OPC_IMA_INTEGER,  "accelerate_token", 

274  *Fddi_Tk_Accelerate) ; 


275  /*  Obtain  the  synchronous  bandwidth  assigned  */ 

276  /*  to  this  station.   It  is  expressed  as  a  */ 

277  /*  percentage  of  TTRT,  and  then  converted  to  seconds  */ 

278  op_ima_obj_attr_get  (my_objid,  "sync  bandwidth",  ftsync_pc) ; 

279  sync.bandwidth  =  sync.pc  *  Fddi_T_0pr; 


280  /*  Only  one  station  in  the  ring  is  selected  to  */ 

281  /*  introduce  the  first  token.  Test  if  this  station  is  it.  */ 

282  /*  If  so,  set  the  'spawn_token'  flag.  */ 

283  /*  op_ima_sim_attr_get  (OPC_IMA_INTEGER,  "spawn  station",  ftspawn_station) ;  */ 

284  /*  spawn.token  =  (spawn.station  ==  my.address);  */ 

285  /*  If  the  station  is  to  spawn  the  token,  create  */ 

286  /*  the  packet  which  represents  the  token.  */ 

287  /*  14APR94  :the  bridges  will  spawn  token  in  both  rings  */ 

288  /*  -Karayakaylar  */ 

289  spawn.token  =1; 

290  if  (spawn.token) 

291  { 

292  tk.pkptr  =  op_pk_create_fmt  ("fddi_mac_tk"); 

293  /*  assign  its  frame  control  field  */ 

294  op_pk_nfd_set  (tk.pkptr,  "fc",  FDDI.FC.TOKEN) ; 

295  /*  the  first  token  issued  is  non-restricted  */ 

296  op_pk_nfd_set  (tk.pkptr,  "class",  FDDI_TK_NONRESTRICTED) ; 

297  /*  The  transition  will  be  made  into  the  ISSU_TK  */ 

298  /*  state  where  the  tk_usable  variable  is  used.  */ 

299  /*  In  case  any  data  has  been  generated,  prset  */ 

300  /*  this  variable  to  one.  */ 
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301  tk.usable  =  1; 

302  } 


303  /*  When  sending  packets  the  variable  accum_bandwidth  is  */ 

304  /*  used  as  a  scheduling  base.   Init  this  value  to  zero.  */ 

305  /*  This  statement  is  required  in  case  this  is  the  spawning  */ 

306  /*  station,  and  the  next  state  entered  is  ISSUE.TK  */ 

307  accum.bandwidth  =0.0; 


308  } 


309  /**  state  (INIT)  exit  executives  **/ 

310  FSM_STATE_EXIT_FORCED  (0,  stateO_exit_exec,  "INIT") 

311  { 

312  } 


313  /**  state  (INIT)  transition  processing  **/ 

314  FSM_INIT_C0ND  (spawn.token) 

315  FSM.DFLT.C0ND 

316  FSM_TEST.LOG IC  ("INIT") 

317  FSM_TRANSIT_SWITCH 

318  { 

319  FSM.CASE.TRANSIT  (0,  2,  state2_enter_exec,  ;) 

320  FSM_CASE_TRANSIT  (1,  1,  statel.enter.exec,  ;) 

321  > 

322  /* */ 


323  /**  state  (IDLE)  enter  executives  **/ 

324  FSM_STATE_ENTER_UNFORCED  (1,  statel.enter.exec,  "IDLE") 

325  { 

326  } 


327  /**  blocking  alter  enter  executives  of  unforced  state.  **/ 

328  FSM.EXIT  (3,cp_fddi_mac) 


329  /**  state  (IDLE)  exit  executives  **/ 

330  FSM.STATE.EXIT.UNFORCED  (1,  statel.exit.exec,  "IDLE") 

331  { 

332  /*  Determine  if  a  trace  is  activated  for  the  FDDI  model  */ 

333  tk.trace.on  =  op.prg.odb.ltrace.active  ("fddi.tk"); 
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334  /*  Trap  packets  arriving  from  physical  layer  so  that  their  */ 

335  /*  FC  field  can  be  extracted  before  evaluating  conditions  */ 

336  if  (op_intrpt_type  ()  ==  OPC_INTRPT_STRM  kt   op_intrpt_strm  ()  !=  FDDI.LLC.STRM.IN) 

337  { 

338  /*  Acquire  the  arriving  packet.  */ 

339  pkptr  =  op_pk_get  (FDDI_PHY.STRM.IN); 

340  /*  Determine  the  type  of  packet  by  extracting  */ 

341  /*  the  frame  control  field.  */ 

342  op_pk.nfd.get  (pkptr,  "fc",  ftf rame_control) ; 

343  /*  Physical  layer  arrival  flag  is  set.  */ 

344  phy_arrival  =  1; 

345  } 

346  else{ 

347  /*  The  interrupt  is  not  due  to  a  physical  layer  arrival.  */ 

348  phy.arrival  =  0; 

349  /*  If  the  interrupt  is  a  remote  interrupt  with  specified  code,   it  signifies   */ 

350  /*  the  reinsertion  of  the  token  into  the  ring  after  an  idle  period.  This  only  */ 

351  /*  occurs  if  the  token  acceleration  mechanism  is  active.   */ 

352  if  (op_intrpt_type  ()  ==  OPC.INTRPT.REMOTE  tt   op_intrpt_code  ()  ==  FDDIC_TK_IHJECT) 

353  { 

354  /*  create  a  new  token  */ 

355  tk_pkptr  =  op_pk_create_fmt  ("fddi_mac_tk") ; 

356  /*  assign  its  frame  control  field  */ 

357  op_pk_nfd_set  (tk.pkptr,  "fc",  FDDI_FC_T0KEN) ; 

358  /*  the  token  is  non-restricted  */ 

359  op_pk_nfd_set  (tk.pkptr,  "class",  FDDI_TK_NONRESTRICTED) ; 

360  /*  insert  it  into  the  ring  */ 

361  op_pk_send  (tk.pkptr,  FDDI.PHY.STRM.OUT) ; 

362  > 

363  } 


364  /**  state  (IDLE)  transition  processing  **/ 

365  FSM.INIT.COND  (TK.RECEIVED) 

366  FSM.TEST.COND  (RC.FRAME) 

367  FSM.TEST.COND  (TRT.EXPIRE) 

368  FSM.TEST.COND  (FRAME.ARRIVAL) 

369  FSM.DFLT.COND 

370  FSM.TEST.L0GIC  ("IDLE") 
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371  FSM_TRANSIT_SWITCH 

372  { 

373  FSM_CASE_TRANSIT  (0,  3,  state3_enter_exec, 

374  FSM_CASE_TRANSIT  (1,  4,  state4_enter_exec, 

375  FSM_CASE_TRANSIT  (2,  7,  state7_enter_exec, 

376  FSM_CASE_TRANSIT  (3,  8,  state8_enter_exec, 

377  FSM_CASE_TRAHSIT  (4,  1,  statel_enter_exec, 

378  } 

379  /* 


-*/ 


380  /**  state  (ISSUE.TK)  enter  executives  **/ 

381  FSM_STATE_ENTER_FORCED  (2,  state2_enter_exec,  "ISSUE.TK") 

382  { 

383  /*  If  the  token  is  sent  without  having  been  used,  and  the  station  */ 

384  /*  has  no  data  to  send,  then  indicate  this  fact  to  the  */ 

385  /*  token  acceleration  mechanism  which  may  have  an  */ 

386  /*  oppurtunity  to  block  the  token.  */ 

387  if  (!tk_usable  44  op_q_stat  (OPC_QSTAT_PKSIZE)  ==  0.0) 

388  { 

389  /*  Mote  that  if  the  token  cannot  be  blocked,  */ 

390  /*  this  procedure  will  forward  the  token  physically.  */ 

391  fddi_tk_indicate_no_data  (tk.pkptr,  my_address,  accum_bandwidth) ; 

392  } 

393  else{ 

394  if  (tk_trace_on  ==  0PC.TRUE) 

395  { 

396  sprintf  (strO,  "Issuing  token.  accum_bw  (*/..9f),  prop.del  (y,.9f)H, 

397  accum_bandwidth,  Fddi_Prop_Delay) ; 

398  op_prg_odb_print .major  (strO,  0PC.NIL) ; 

399  } 

400  /*  Send  out  the  token  packet  using  the  accumulated  */ 

401  /*  consumed  bandwidth  as  a  scheduling  base.  */ 

402  /*  In  the  case  of  the  initial  spawning  of  the  token  */ 

403  /*  this  will  be  zero;  otherwise  this  variable  will  */ 

404  /*  reflect  the  bandwidth  consumed  since  the  last  capture  */ 

405  /*  of  the  usable  token.  Propagation  delay  is  also  accounted  for.  */ 

406  op_pk_send_delayed  (tk.pkptr,  FDDI_PHY_STRM_0UT, 

407  accum_bandwidth  +  Fddi_Prop_Delay) ; 

408  } 

409  } 


410  /**  state  (ISSUE.TK)  exit  executives  **/ 

411  FSM_STATE_EXIT_F0RCED  (2,  state2_exit_exec, 

412  { 

413  > 


'ISSUE.TK") 
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414  /**  state  (ISSUE.TK)  transition  processing  **/ 

415  FSM_TRAHSIT_FORCE  (1,  statel_enter_exec,  ;) 

416  /* */ 


417  /**  state  (RCV_TK)  enter  executives  **/ 

418  FSM_STATE_ENTER_FORCED  (3,  state3_enter_exec,  "RCV.TK") 

419  { 

420  /*  The  arriving  packet,  when  received  in  the  IDLE  state  */ 

421  /*  is  placed  in  the  variable  'pkptr'.   Since  it  is  now  */ 

422  /*  known  that  it  is  a  token,  it  can  be  placed  in  'tk.pkptr.  */ 

423  tk_pkptr  =  pkptr; 
424 

425  /*  Load  the  token's  class  into  the  temporary  variable  'tk_class.'  */ 

426  op_pk_nfd_get  (pkptr,  "class",  ttk_class) ; 

427  /*  II  the  token  is  restricted,  determine  for  which  station.  */ 

428  if  (tk.class  ==  FDDI.TK.RESTRICTED) 

429  { 

430  /*  Place  the  station  address  in  the  variable  'res_station'  */ 

431  /*  which  may  factor  in  to  the  determination  of  token  usability.  */ 

432  op_pk_nfd_get  (tk_pkptr,  "res.station",  ftres_station) ; 

433  } 


434  /*  Determine  if  the  token  is  usable:  */ 

435  /*  assume  by  default  that  it  is  not  */ 

436  /*  Subsequent  conditions  may  override  this.  */ 

437  tk.usable  =  0; 


438  /*  The  token  can  only  be  usable  if  there  are  frames  enqueued  */ 

439  /*  27DEC93:  the  entire  bank  of  subqueues  must  be  checked,    */ 

440  /*  starting  at  the  highest  priority  (corresponding  to        */ 

441  /*  synchronous  traffic),  and  stopping  when  a  packet  is       */ 

442  /*  found.  Then  the  loop  is  broken.  -Nix  */ 

443  HUM.PRIOS  =  9; 

444  for  (i  =  HUM.PRIOS  -  1;  i  >  -1;  i— ) 

445  { 

446  if  (op_subq_stat  (i,  OPC_QSTAT_PKSIZE)  >  0.0) 

447  { 

448  /*  examine  the  attributes  of  the  packet  at  the  */ 

449  /*  head  of  the  queue.  */ 

450  fddi_load_frame_attrs  (ftdest_addr,  ftsvc.class,  ftpri.level) ; 

451  /*  If  synchronous  data  is  queued,  the  token  is  */ 

452  /*  necessarily  usable,  regardless  of  timing  conditions.  */ 

453  if  (svc.class  ==  FDDI.SVC.SYNC) 

454  { 
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455  tk.usable  =  1; 

456  break; 

457  } 

458  else-C 

459  /*  Otherwise,  if  asynchronous  data  is  queued,  it  must  */ 

460  /*  meet  several  criteria  for  the  token  to  be  usable.   */ 

461  /*  The  token  is  only  usable  only  if  it  is  early.  */ 

462  if  (Late.Ct  ==  0) 

463  { 

464  /*  The  token's  class  must  be  nonrestricted,  unless  */ 

465  /*  this  station  is  involved  in  the  restricted  transfer.  */ 

466  if  (tk.class  ==  FDDI_TK_NONRESTRICTED  I  I 

467  res.station  ==  my.address  I  I 

468  restricted) 

469  { 

470  /*  Test  the  frame's  priority  assignment  against  the  current  TRT  */ 

471  /*  This  test  uses  the  priority  indirection  table  T_Pri  */ 

472  /*  so  that  only  packets  whose  T_Pri  [pri_level]  exceeds  */ 

473  /*  the  TRT  can  be  transmitted.   In  other  words,  by  */ 

474  /*  assigning  lower  values  to  T_Pri  for  a  given  priority  */ 

475  /*  level,  packets  of  that  level  will  be  further  restricted  */ 

476  /*  from  using  the  ring  bandwidth.  */ 

477  if  (T_Pri  [pri.level]  >=  fddi.timer .value  (TRT)) 

478  { 

479  tk.usable  =  1; 

480  break; 

481  } 

482  } 

483  } 

484  } 

485  }     /*  closes  the  "if  (op_subq_stat  (OPC_QSTAT_PKSIZE)  >  0.0"  statment  */ 

486  }      /*  closes  the  "for"  loop  */ 


487  /*  If  the  token  is  usable,  timers  must  be  readjusted.  */ 

488  if  (tk.usable) 

489  { 

490  /*  The  timer  adjustment  depends  on  whether  the  token  is  early  or  late.  */ 

491  if  (Late.Ct  ==  0) 

492  { 

493  /*  Transfer  the  contents  of  TRT  into  THT.  */ 

494  fddi_timer_copy  (TRT,  THT); 

495  /*  Disable  the  THT  timer.  */ 

496  fddi.timer .disable  (THT); 

497  /*  Reset  TRT  to  time  the  next  rotation.  */ 

498  op.ev.cancel  (TRT.handle) ; 

499  TRT.SET  (my.address,  op.sim.time  ()  +  Fddi.T.Opr) ; 


87 


500  } 

501  else-C 

502  /*  II  the  token  is  late,  set  the  THT  to  its  expired  */ 

503  /*  value,  and  disable  it.   This  sill  prevent  any  */ 

504  /*  asynchronous  transmissions  from  occuring.  */ 

505  fddi_timer_set_value  (THT,  Fddi_T_0pr); 

506  fddi_timer_disable  (THT); 

507  /*  clear  the  Late  token  counter  (note  that  TRT  is  not  modified,  */ 

508  /*  so  that  less  than  a  lull  TTRT  remains  before  TRT  expires  again.  */ 

509  Late.Ct  =  0; 

510  } 

511  } 


512  /*  If  the  token  is  not  usable,  different  adjustments  are  made.  */ 

513  else{ 

514  /*  Again,  the  adjustments  depend  on  the  lateness  of  the  token  */ 

515  if  (Late.Ct  ==  0) 

516  { 

517  /*  If  the  token  is  not  late,  the  TRT  is  reset  to  time  the  next  rotation.  */ 

518  op_ev_cancel  (TRT.handle) ; 

519  TRT_SET  (my_address,  op_sim_time  ()  +  Fddi_T_0pr) ; 

520  } 

521  else{ 

522  /*  clear  the  Late  token  counter  (note  that  TRT  is  not  modified,  */ 

523  /*  so  that  less  than  a  full  TTRT  remains  before  TRT  expires  again.  */ 

524  Late.Ct  =  0; 

525  } 

526  /*  also,  account  for  the  time  needed  by  the  token  */ 

527  /*  to  traverse  the  station,  since  it  is  about  to  be  sent.  */ 

528  /*  Bote:  station  latency  is  not  inclusive  of  token  */ 

529  /*  transmission  time,  but  only  of  the  time  required  to  */ 

530  /*  process  and  repeat  the  token's  symbols.   */ 

531  accum_bandwidth  =  Fddi_St_Latency; 

532  } 


533  } 


534  /**  state  (RCV_TK)  exit  executives  **/ 

535  FSM_STATE_EXIT_F0RCED  (3,  state3_exit_exec,  "RCV.TK") 

536  { 

537  } 


538  /**  state  (RCV_TK)  transition  processing  **/ 

539  FSM_IHIT_C0ND  (tk.usable) 

540  FSM_DFLT_C0ND 
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541  FSM_TEST.LOG IC  ("RCV.TK"), 

542  FSM_TRAHSIT_SWITCH 

543  { 

544  FSM_CASE_TRANSIT  (0,  9,  state9_enter_exec,  ;) 

545  FSM_CASE_TRANSIT  (1,  2,  state2_enter_exec,  ;) 

546  } 

547  /* */ 


548  /**  state  (FR_RCV)  enter  executives  **/ 

549  FSM.STATE.EHTER.FORCED  (4.  state4_enter_exec,  "FR.RCV") 

550  { 

551  /*  A  frame  has  been  received  from  the  physical  layer.  lote  that  */ 

552  /*  at  this  time,  only  the  leading  edge  of  the  frame  has  arrived.  */ 

553  /*  Extract  the  frame's  source  address  (this  will  be  used  to  */ 

554  /*  determine  whether  or  not  to  strip  the  frame  from  the  ring) .  */ 

555  op_pk_nfd_get  (pkptr,  "src_addr",  Jtsrc.addr) ; 

556  } 


557  /**  state  (FR.RCV)  exit  executives  **/ 

558  FSM_STATE_EXIT_FORCED  (4,  state4_exit_exec,  "FR.RCV") 

559  { 

560  } 


561  /**  state  (FR.RCV)  transition  processing  **/ 

562  FSM.INIT.COND  (STRIP) 

563  FSM.DFLT.COND 

564  FSM.TEST.LOGIC  ("FR.RCV") 

565  FSM.TRANSIT.SWITCH 

566  { 

567  FSM.CASE.TRANSIT  (0,  5,  state5.enter.exec,  ;) 

568  FSM.CASE.TRANSIT  (1,  6,  state6.enter.exec,  ;) 

569  } 

570  /* */ 


571  /**  state  (FR.STRIP)  enter  executives  **/ 

572  FSM.STATE.EHTER.FORCED  (5,  state5.enter.exec,  "FR.STRIP") 

573  { 

574  /*  Destroy  the  frame  which  has  now  circulated  the  entire  ring.  */ 

575  op.pk.destroy  (pkptr) ; 

576  } 
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577  /**  state  (FR.STRIP)  exit  executives  **/ 

578  FSM_STATE_EXIT_FORCED  (5,  state5_exit_exec,  "FR.STRIP") 

579  { 

580  } 


581  /**  state  (FR_STRIP)  transition  processing  **/ 

582  FSM_TRANSIT_FORCE  (1,  statel_enter_exec,  ;) 

583  /* */ 


584  /**  state  (FR.REPEAT)  enter  executives  **/ 

585  FSM_STATE_ENTER_FORCED  (6,  state6_enter_exec,  "FR.REPEAT") 

586  { 

587  /*  Extract  the  destination  address  of  the  frame.  */ 

588  op_pk_nfd_get  (pkptr,  "dest_addr",  fedest_addr) ; 

589  /*  If  the  frame  is  for  this  station,  make  a  copy  */ 

590  /*  of  the  frame's  data  field  and  forward  it  to  */ 

591  /*  the  higher  layer.  */ 

592  /*  14APR94  :  In  order  to  send  the  frames  which  are  */ 

593  /*  addressed  to  the  remote  Ian,  check  the  address  database  */ 

594  /*  of  remote  Ian.  Frames  addressed  to  the  remote  Ian  shouldn't  */ 

595  /*  be  repeated  in  the  local  ring  —  This  is  a  simple  forwarding  */ 

596  /*  decision  algorithm,  one  of  the  bridge's  function  */ 

597  /*  -  Karayakaylar  */ 

598  if ((dest_addr  ==  my.address) I  I (dest_addr  >  my_address)) 

599  { 

600  /*  record  total  size  of  the  frame  (including  data)  */ 

601  pk_len  =  op_pk_total_size_get  (pkptr) ; 

602  /*  decapsulate  the  data  contents  of  the  frame  */ 

603  /*  29JAN94:  a  new  field,  "pri" ,  has  been  added  to  */ 

604  /*  the  fddi_llc_fr  packet  format  in  the  Parameters  */ 

605  /*  Editor,  so  that  output  statistics  can  be  */ 

606  /*  generated  by  class  and  priority.  -Hix  */ 

607  op_pk_nfd_get  (pkptr,  "info",  ftdata.pkptr) ; 

608  op_pk_nfd_get  (pkptr,  "pri",  fcpri_level) ; 

609  /*  The  source  and  destination  address  are  placed  in  the  */ 

610  /*  LLC's  ICI  before  delivering  the  frame's  contents.  */ 

611  op_ici_attr_set  (to_llc_ici_ptr,  "src.addr",  src_addr) ; 

612  op_ici_attr_set  (to_llc_ici_ptr,  "dest.addr" ,  dest_addr) ; 

613  op_ici_install  (to_llc_ici_ptr) ; 

614  /*  Because,  as  noted  in  the  FR_RCV  state,  only  the-*/ 

615  /*  frame's  leading  edge  has  arrived  at  this  time,  the  */ 

616  /*  complete  frame  can  only  be  delivered  to  the  higher  */ 

617  /*  layer  after  the  frame's  transmission  delay  has  elapsed.  */ 

618  /*  (since  decapsulation  of  the  frame  data  contents  has  occured,  */ 
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619  /*  the  original  MAC  frame  length  is  used  to  calculate  delay)  */ 

620  tx.time  =  (double)  pk.len  /  FDDI_TX_RATE; 

621  op_pk_send_delayed  (data.pkptr,  FDDI_LLC_STRM_OUT ,  tx_time); 

622  /*  lote  that  the  standard  specifies  that  the  original  */ 

623  /*  frame  should  be  passed  along  until  the  originating  station  */ 

624  /*  receives  it,  at  which  point  it  is  stripped  from  the  ring.  */ 

625  /*  However,  in  the  simulation  model,  there  is  no  interest  */ 

626  /*  in  letting  the  frame  continue  past  its  destination  unless  */ 

627  /*  group  addresses  are  used,  so  that  the  same  frame  could  be  */ 

628  /*  destined  for  several  stations.  Here  the  frame  is  stripped  */ 

629  /*  for  efficiency  as  it  reaches  the  destination;  if  the  model  */ 

630  /*  is  modified  to  include  group  addresses,  this  should  be  changed  */ 

631  /*  so  that  the  frame  is  copied  and  the  original  repeated.  */ 

632  /*  Logic  is  already  present  for  stripping  the  frame  at  the  origin.  */ 

633  op_pk_destroy  (pkptr) ; 

634  } 

635  /*  14APR94  :  the  frames  belong  to  this  ring  should  be  repeated.  */ 

636  /*  Thus,  local  traffic  is  constrained. —  This  is  filtering  decision  */ 

637  /*  One  of  the  bridge's  function  -  Karayakaylar  */ 

638  else{ 

639  /*  Repeat  the  original  frame  on  the  ring  and  account  for  */ 

640  /*  the  latency  through  the  station  and  the  propagation  delay  */ 

641  /*  for  a  single  hop.  */ 

642  /*  (Only  the  originating  station  can  strip  the  frame).  */ 

643  op_pk_send_delayed  (pkptr,  FDDI_PHY_STRM_0UT, 

644  Fddi.St .Latency  +  Fddi_Prop_Delay) ; 

645  } 

646  } 


647  /**  state  (FR.REPEAT)  exit  executives  **/ 

648  FSM_STATE_EXIT_FORCED  (6,  state6_exit_exec,  "FR.REPEAT") 

649  { 

650  } 


651  /**  state  (FR.REPEAT)  transition  processing  **/ 

652  FSM_TRANSIT_FORCE  (1,  statel_enter_exec,  ;) 

653  /* */ 


654  /**  state  (TRT.EXP)  enter  executives  **/ 

655  FSM_STATE_ENTER_FORCED  (7,  state7_enter_exec,  "TRT.EXP") 

656  { 

657  /*  The  timer  is  reset  and  allowed  to  continue  running.  */ 

658  TRT_SET  (my.address,  op_sim_time  ()  +  Fddi_T_0pr) ; 

659  /*  The  late  token  counter  is  incremented.  This  will  */ 
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660  /*  prevent  this  station  from  making  any  asynchronous  */ 

661  /*  transmissions  when  it  next  captures  the  token.   */ 

662  Late_Ct++; 

663  } 


664  /**  state  (TRT.EXP)  exit  executives  **/ 

665  FSM_STATE_EXIT_FORCED  (7,  state7_exit_exec,  "TRT.EXP") 

666  { 

667  } 


668  /**  state  (TRT.EXP)  transition  processing  **/ 

669  FSM.TRANSIT.FORCE  (1,  statel_enter_exec,  ;) 

670  /* */ 


671  /**  state  (ENCAP)  enter  executives  **/ 

672  FSM_STATE_ENTER_FORCED  (8,  state8_enter_exec,  "ENCAP") 

673  { 

674  /*  A  frame  has  arrived  from  a  higher  layer;  place  it  in  'pdu_ptr' .  */ 

675  pdu.ptr  =  op_pk_get  (op_intrpt_strm  ()); 

676  /*  Also  get  the  interface  control  information  */ 

677  /*  associated  with  the  new  frame.  */ 

678  ici.ptr  =  op_intrpt_ici  (); 

679  if  (ici.ptr  ==  OPC.HIL) 

680  { 

681  sprintf  (error.string,  "Simulation  aborted;  error  in  object  (%d)", 

682  op_id_self  ()); 

683  op_sim_end  (error.string,  "fddi.mac:  required  ICI  not  received",  "  ",  "  "); 

684  } 

685  /*  Extract  the  requested  service  class  */ 

686  /*  (e.g,  synchronous  or  asynchronous).  */ 

687  if  (op_ici_attr_exists  (ici_ptr,  "svc_class")) 

688  op_ici_attr_get  (ici_ptr,  "svc.class",  ftsvc.class); 

689  else  svc.class  =  FDDI_SVC_ASYNC; 

690  /*  Extract  the  destination  address.  */ 

691  op_ici_attr_get  (ici.ptr,  "dest.addr",  ftdest_addr) ; 

692  /*  Extract  the  original  source  address  from  ICI  :16APR94  */ 

693  op_ici_attr_get  (ici.ptr,  "src_addr",  ftorig_src_addr) ; 

694  /*  If  the  frame  is  asynchronous ,  the  priority  and  */ 

695  /*  requested  token  class  parameter  may  be  specified.  */ 

696  if  (svc.class  ==  FDDI_SVC_ASYNC) 
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697  { 

698  /*  Extract  the  requested  priority  level.  */ 

699  if  (op_ici_attr_exists  (ici_ptr,  "pri")) 

700  op_ici_attr_get  (ici_ptr,  "pri",  ftreq_pri); 

701  else  req_pri  =  0; 

702  /*  Extract  the  token  class  (restrictred  or  non-restricted) .  */ 

703  if  (op_ici_attr_exists  (ici.ptr,  "tk_ class")) 

704  op_ici_attr_get  (ici.ptr,  "tk_class",  fcreq.tk.class); 

705  else  req_tk_class  =  FDDI_TK_NOHRESTRICTED; 

706  } 

707  /*  Check  for  the  default  ICI  values; if  they  are  not  present  */ 

708  /*  compose  the  frame :21APR94  */ 

709  if(  dest.addr  !=  orig_src_addr){ 

710  /*  Compose  a  mac  frame  from  all  these  elements.  */ 

711  mac_frame_ptr  =  op_pk_create_fmt  ("fddi_mac_fr"); 

712  op_pk_nfd_set  (mac_frame_ptr,  "svc_class",  svc.class) ; 

713  op_pk_nfd_set  (mac_frame_ptr,  "dest_addr",  dest_addr) ; 

714  /*op_pk_nfd_set  (mac_f rame_ptr ,  "src.addr",  my_address) ;*/ 

715  /*  here  original  source  address  should  be  kept  in  mac  frame  : 16APR94*/ 

716  op_pk_nfd_set  (mac_frame_ptr,  "src_addr",  orig_src_addr) ; 

717  op_pk_nfd_set  (mac_frame_ptr,  "info",  pdu.ptr); 

718  printf  ("\ndest_addr  =  */.5d\n",dest_addr) ; 

719  printf  ("or  ig_src_addr=  '/,5d\n",orig_src_addr)  ; 

720  if  (svc.class  ==  FDDI_SVC_ASYNC) 

721  { 

722  op_pk_nfd_set  (mac_frame_ptr,  "tk_class",  req_tk_class) ; 

723  op_pk_nfd_set  (mac_frame_ptr,  "pri",  req_pri); 

724  } 

725  /*  04JAN94:  if  the  frame  is  synchronous,  assign  it  a  separate  */ 

726  /*  priority  so  that  it  may  be  assigned  its  own  subqueue,  and  */ 

728  /*  thereby  be  assigned  its  own  probe  for  monitoring.  -Hix     */ 

729  if  (svc.class  ==  FDDI_SVC_SYNC) 

730  { 

731  op_pk_nfd_set  (mac_frame_ptr,  "pri",  8); 

732  } 

733  /*  Assign  the  frame  control  field,  which  in  the  model  */ 

734  /*  is  used  to  distinguish  between  tokens  and  ordinary  */ 

735  /*  frames  on  the  ring.  */ 

736  op_pk_nfd_set  (mac_frame_ptr,  "fc",  FDDI.FC.FRAME) ; 

737  /*  Enqueue  the  frame  at  the  tail  of  the  queue.  */ 

738  /*  27DEC93:  at  the  tail  of  the  prioritized  queue.    */ 

739  /*  04JAN94:  must  distinguish  between  synch  k   asynch.  */ 

740  if  (svc.class  ==  FDDI.SVC.ASYNC) 

741  { 
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742  op_subq_pk_insert  (req.pri,  mac_f rame_ptr ,  0PC_QP0S_TAIL) ; 

743  } 

744  if  (svc.class  ==  FDDI.SVC.SYNC) 

745  { 

746  op_subq_pk_ insert  (8,  mac_frame_ptr,  OPC_QPOS_TAIL) ; 

747  } 


748  /*  if  this  station  has  not  yet  registered  its  intent  to  */ 

749  /*  use  the  token,  it  may  do  so  now  since  it  has  data  to  send  */ 

750  if  (!tk_registered) 

751  i 

752  fddi_tk_register  (); 

753  tk.registered  =  1; 

754  } 

755  }  /*  end  of  if(dest_addr  !=  orig_src_addr)  statement  */ 


756  /**  state  (ENCAP)  exit  executives  **/ 

757  FSM_STATE_EXIT_FORCED  (8,  state8_exit_exec,  "ENCAP") 

758  { 

759  } 


760  /**  state  (ENCAP)  transition  processing  **/ 

761  FSM.TRANSIT.FORCE  (1,  statel_enter_exec,  ;) 

762  /* */ 


763  /**  state  (TX.DATA)  enter  executives  **/ 

764  FSM_STATE_ENTER_FORCED  (9,  state9_enter_exec,  "TX.DATA") 

765  { 

766  /*  In  this  state,  frames  are  transmitted  until  the  */ 

767  /*  token  is  no  longer  usable.   Frames  are  taken  from  */ 

768  /*  the  single  input  queue  in  FIFO  order.  */ 

769  /*  Reset  the  accumulator  used  to  keep  track  of  bandwidth  */ 

770  /*  consumed  by  the  transmissions.   Because  all  the  transmissions  */ 

771  /*  are  scheduled  to  happen  at  the  appropriate  times,  but  */ 

772  /*  these  schedulings  occur  instantly,  this  accumulator  serves  */ 

773  /*  as  the  scheduling  base  for  the  transmissions.  */ 

774  /*  In  other  words,  each  successively  transmitted  frame  */ 

775  /*  is  delayed  relative  to  the  previous  one  by  the  time  which  */ 

776  /*  the  latter  took  to  send.   At  the  end  of  transmission  (e.g,  */ 
778  /*  when  the  token  is  no  longer  usable) ,  this  accumulator  */ 
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779  /*  serves  to  delay  the  forwarding  of  the  token.  */ 

780  accum.bandwidth  =0.0; 

781  /*  Hote  that,  because  all  tranmsmissions  are  */ 

782  /*  scheduled,  the  value  of  the  THT  timer  will  not  progress  */ 

783  /*  between  shcedulings  (these  all  happen  in  zero  time) ,  and  so  */ 

784  /*  the  variable  'tht_value'  is  used  to  emulate  the  timer's  progress.  */ 

785  tht.value  =  fddi_timer_value  (THT); 

786  /*  ****************************************************  */ 

787  /*  30MAR94:  print  T_Pri[i].  THT  data  */ 

788  /*  for  (i  =  0;  i  <  8;  i++)  */ 

789  /*    {  */ 

790  /*  printf("TX_DATA:  T_Pri['/.d]  =  VA,   THT  =  '/.d,  Fddi_T_0pr  =  y.d\n",  i,  T_Pri[i],  tht.value  */ 

791  /*    }  */ 

792  /*  Reset  an  accumulator  which  reflects  the  consumed  */ 

793  /*  synchronous  bandwidth.  */ 

794  accum_sync  =  0.0; 

795  /*  Reset  counters  for  transmitted  frames  and  bits.  */ 

796  num_frames_sent  =  0; 

797  num_bits_sent  =  0; 

798  /*  The  transmission  sequence  must  end  if  the  input  queue  */ 

799  /*  becomes  exhausted.   Other  termination  conditions  are  */ 

800  /*  embedded  in  the  loop.  */ 

801  /*  27DEC93:  modify  the  loop  to  accomodate  subqueue  structure.  */ 

802  /*  A  "for"  loop  is  imposed  over  the  original  "while"  loop.    */ 

803  /*  First,  reset  the  break  marker,  "punt".  -Nix  */ 

804  punt  =  0; 

805  for  (i  =  HUM.PRI0S  -  1;  i  >  -1;  i~) 

806  { 

807  while  (op_subq_stat  (i,0PC_QSTAT_PKSIZE)  >  0.0) 

808  { 

809  /*  Remove  the  next  frame  for  transmission.  */ 

810  pkptr  =  op_subq_pk_remove  (i,  0PC_QP0S_HEAD) ; 
811 

812  /*  Obtain  the  frame's  service  class.  */ 

813  op_pk_nfd_get  (pkptr,  "svc_class",  fesvc_class); 
814 

815  /*  Synchronous  and  asynchronous  frames  are  treated  differently.  */ 

816  if  (svc.class  ==  FDDI_SVC_SYNC) 

817  { 

818  /*  Obtain  the  frame's  length,  and  compute  */ 

819  /*  the  time  required  to  transmit  it.  */ 

820  pk_len  =  op_pk_total_size_get  (pkptr); 

821  tx.time  =  (double)  pk.len  /  FDDI.TX.RATE; 

822  /*  Check  if  synchronous  bandwidth  allocation  for  this  */ 
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823  /*  station  would  be  exceeded  if  the  transmission  were  to  occur.  */ 

824  if  (accum_sync  +  tx_time  >  sync.bandwidth) 

825  { 

826  /*  The  frame  could  not  be  sent  without  exceeding  */ 

827  /*  the  allocated  synchronous  bandwidth,  */ 

828  /*  so  it  is  replaced  on  the  queue.  */ 

829  /*  27DEC93:  in  this  case,  i  is  the  highest  priority,  */ 

830  /*  which  is  reserved  lor  synchronous  traffic .  -Hix   */ 

831  op_8ubq_pk_insert  (i,  pkptr,  0PC_QP0S_HEAD) ; 

832  /*  Exit  the  transmission  loop  since  the  frame  */ 

833  /*  transmission  request  cannot  be  honored.  */ 

834  punt  =  1; 

835  break; 

836  } 

837  else{ 

838  /*  Send  the  frame  into  the  ring  after  other  frames  have  completed.  */ 

839  /*  Also,  account  for  its  proagation  delay;  because  the  token  propagation  */ 

840  /*  delay  and  the  frame  propagation  delay  must  be  consistent,  and  the  */ 

841  /*  token  propagation  delay  is  specified  as  a  ring  parameter  (i.e,  stations  */ 

842  /*  are  assumed  to  be  equally  spaced) ,  the  ring  is  intended  to  run  with  */ 

843  /*  the  "delay"  attributes  of  point-to-point  links  set  at  zero.  */ 

844  op_pk_send_delayed  (pkptr,  FDDI_PHY_STRM_OUT,  accum.bandwidth  +  Fddi_Prop_Delay) ; 

845  /*  increase  the  consumed  bandwidth  to  reflect  this  */ 

846  /*  transmission.   Also  increase  synchronous  consumption.  */ 

847  accum_bandwidth  +=  tx_time; 

848  accum_sync  +=  tx.time; 

849  /*  Increase  counters  for  transmitted  bits  and  frames.  */ 

850  num_frames_sent++; 

851  num_bits_sent  +=  pk_len; 

852  > 

853  } 

854  else{ 

855  /*  The  request  enqueued  at  the  head  of  the  queue  is  */ 

856  /*  asynchronous.  It  may  only  be  honored  if  the  THT  timer  */ 

857  /*  has  not  expired.  */ 

858  if  (tht.value  >=  Fddi_T_0pr) 

859  { 

860  /*  replace  the  packet  on  the  queue  and  exit  the  transmission  loop.  */ 

861  op_subq_pk_ insert  (i,  pkptr,  0PC_QP0S_HEAD) ; 

862  punt  =  1; 

863  break; 

864  } 

865  else{ 

866  /*  Obtain  the  priority  assignment  of  the  frame.  */ 

867  op_pk_nfd_get  (pkptr,  "pri",  ftpri_level); 

868  /*  If  the  packet's  assigned  priority  level  */ 

869  /*  is  too  low  for  it  to  be  serviced,  then  exit  the  loop  */ 
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870  /*  alter   replacing  the  packet  in  the  queue.  */ 

871  if  (T.Pri  [pri.level]  <  tht .value) 

872  { 

873  op_subq_pk_ insert  (i,  pkptr,  0PC_QP0S_HEAD) ; 

874  punt  =  1; 

875  break; 

876  } 

877  /*  Obtain  the  frame's  length,  and  compute  the  time  */ 

878  /*  which  would  be  required  to  transmit  it .  */ 

879  pk_len  =  op_pk_total_size_get  (pkptr); 

880  tx.time  =  (double)  pk.len  /  FDDI_TI_RATE; 

881  /*  Determine  the  requested  token  class  to  be  */ 

882  /*  released  after  this  frame  is  transmitted.  */ 

883  op_pk_nfd_get  (pkptr,  "tk_class",  Jktk.class); 

884  /*  If  the  station  is  in  restricted  mode,  then  it  may  */ 

885  /*  exit  this  mode  if  the  class  is  now  nonrestricted  */ 

886  /*  or  if  the  restricted  peer  is  not  the  addressee.  */ 

887  if  (restricted) 

888  { 

889  /*  Determine  the  destination  address  for  the  new  packet.  */ 

890  op_pk_nfd_get  (pkptr,  "dest.addr",  4dest_addr) ; 

891  if  (tk.class  ==  FDDI.TK.NONRESTRICTED  I  I 

892  res.peer  !=  dest_addr) 

893  { 

894  /*  Exit  restricted  mode  */ 

895  restricted  =  0; 
896 

897  /*  Modify  the  token  to  reflect  the  mode  change.  */ 

898  op_pk_nfd_set  (tk.pkptr,  "class",  FDDI_TK_HONRESTRICTED) ; 

899  } 

900  } 

901  else{ 

902  /*  Determine  the  class  of  the  current  captured  token.  */ 

903  op_pk_nfd_get  (tk.pkptr,  "class",  fccurrent_tk_class); 

904  /*  When  not  in  restricted  mode,  this  mode  may  be  entered  */ 

905  /*  if  the  passed  packet  has  the  appropriate  token  class  requested,  */ 

906  /*  and  the  token  is  not  already  restricted.  */ 

907  if  (tk.class  ==  FDDI_TK_RESTRICTED  ftft  current_tk_class  !=  FDDI_TK_RESTRICTED) 

908  { 

909  /*  Enter  restricted  mode.  */ 

910  restricted  =  1; 

911  /*  Store  the  address  of  the  resticted  peer  station.  */ 

912  op_pk_nfd_get  (pkptr,  "dest.addr",  tres.peer) ; 
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913  /*  Modify  the  token  to  reflect  the  mode  change.  */ 

914  op_pk_nfd_set  (tk.pkptr,  "class",  FDDI_TK_RESTRICTED) ; 

915  op_pk_nfd_8et  (tk.pkptr,  "res.station",  res_peer); 

916  } 

917  } 

918  /*  Send  the  frame  once  previous  transmissions  have  completed.  */ 

919  /*  Account  for  propagation  delay  as  veil.  */ 

920  op_pk_send_delayed  (pkptr,  FDDI_PHY_STRM_OUT,  accum.bandwidth  +  Fddi_Prop_Delay) ; 


921  /*  Increment  THT  emulation  variable,  and  consumed  bandwidth  accumulator.  */ 

922  tht .value  +=  tx_time; 

923  accum_bandwidth  +=  tx_time; 

924  /*  Increase  counters  for  transmitted  bits  and  frames.  */ 

925  num_frames_sent++; 

926  num_bits_sent  +=  pk_len; 

927  } 

928  } 

929  }  /*  closes  the  'while'  loop  */ 

930  if  (punt  ==  1)    /*  If  the  'while'  loop  was  broken,      */ 

931  { 

932  punt  =  0;       /*  then  reset  the  'break'  marker,       */ 

933  break;         /*  and  break  out  of  the  'for'  loop  too.  */ 

934  } 

935  }  /*  closes  the  'for'  loop.   */ 


936  /*  Since  the  token  is  about  to  be  sent,  its  transmission  time  */ 

937  /*  must  be  reflected  in  the  accumulated  bandwidth.  This  is  not  */ 

938  /*  done  in  the  ISSUE.TK  state  because  when  the  token  is  merely  */ 

939  /*  repeated,  full  transmission  delay  is  not  required,  only  */ 

940  /*  a  small  delay  for  repeating.  */ 

941  accum.band width  +=  FDDIC_TOKEN.TX.TIME; 

942  /*  If  the  station  has  no  more  data  to  send  (synchronous  or  */ 

943  /*  asynchronous),  it  should  indicate  this  to  the  token  acceleration  */ 

944  /*  mechanism  by  deregistering  its  interest  in  the  token.  */ 

945  /*  27DEC94:  the  original  code  must  be  modified  to  include  a  check   */ 

946  /*  of  subqueues.  -Nix  */ 

947  q_ check  =  1; 

948  for  (i  =  NUM.PRI0S  -  1;  i  <  -1;  i— ) 


949 

{ 

950 

if  (op.subq.stat  (i,  0PC_QSTAT_PKSIZE) 

==  0.0) 

951 

{ 

952 

q_ check  =  0; 

953 

} 

954 

else  { 

955 

q_  check  =  1; 

956 

break; 
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957  } 

958  } 

959  if  (tk_registered  k&   q_check  ==  0) 

960  { 

961  tk_registered  =  0; 

962  fddi_tk_deregister  (); 

963  > 


964  } 


965  /**  state  (TX.DATA)  exit  executives  **/ 

966  FSM_STATE_EXIT_FORCED  (9,  state9_exit_exec,  "TX.DATA") 

967  { 

968  } 


969  /**  state  (TX.DATA)  transition  processing  **/ 

970  FSM.TRANSIT.FORCE  (2,  state2_enter_exec,  ;) 

971  /* */ 


972  /**  state  (CLAIM)  enter  executives  **/ 

973  FSM_STATE_ENTER_UNFORCED  (10,  statelO.enter.exec,  "CLAIM") 

974  { 

975  /*  Obtain  this  station's  object  id  which  is  used  */ 

976  /*  to  access  the  station's  attribute  assignments.  */ 

977  my_objid  =  op_id_self  (); 

978  /*  Using  the  object  id,  obtain  the  ring  id.  */ 

979  /*  The  ring  id  is  used  by  macros  defined  in  the  */ 

980  /*  header  block  to  obtain  "ring-global"  values,  */ 

981  /*  values  shared  by  all  stations  on  a  ring.  */ 

982  op_ima_obj_attr_get  (my_objid,  "ring.id",  ftring_id) ; 

983  /*  Initialize  global  variable  values.  */ 

984  Fddi_Tk_Blocked  =  0; 

985  Fddi_Hum_Stations  =  0; 

986  Fddi_Hum_Registered  =  0; 

987  /*  Using  the  object  id,  obtain  the  value  of  *T_Req' ,  */ 

988  /*  the  value  of  TTRT  requested  by  this  station.  */ 

989  op_ima_obj_attr_get  (my_objid,  "T.Req",  fcT.Req); 

990  /*  30MAR:  workaround;  Fddi_T_0pr  is  never  initialized  in  the  */ 

991  /*  original  code.  -Nix  */ 

992  Fddi.T.Opr  =  500; 
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993  /*  The  lowest  value  of  T_Req  becomes  T_0pr  lor  the  ring  as  a  whole.  */ 

994  if  (T_Req  <  Fddi_T_0pr  I  I  Fddi_Claim_Start) 

995  { 

996  /*  The  T_Req  for  this  station  is  lover  than  any  other  to  date  */ 

997  /*  so  it  is  installed  in  the  T_0pr  variable.  */ 

998  Fddi_T_Opr  =  T_Req; 

999  /*  The  flag  indicating  that  the  claim  process  is  just  */ 

1000  /*  beginning  may  no?  be  cleared.  */ 

1001  Fddi_Claim_Start  =  0; 

1002  } 

1003  /*  Request  a  self  interrupt  from  the  Smulation  Kernel  at  the  current 

1004  /*  time  so  that  after  all  stations  have  executed  their  claim  states,  */ 

1005  /*  they  can  proceed  with  initializations.  This  is  necessasary  */ 

1006  /*  because  some  initializations  are  based  in  the  value  of  T_0pr  */ 

1007  /*  and  it  must  therefore  be  known  that  all  stations  have  settled  */ 

1008  /*  on  a  final  value.  */ 

1009  op_intrpt_schedule_self  (op_sim_time  (),  0); 


1010  } 


1011  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

1012  FSM.EXIT  (21,cp_fddi_mac) 


1013  /**  state  (CLAIM)  exit  executives  **/ 

1014  FSM_STATE_EXIT_UNF0RCED  (10,  statel0_exit_exec,  "CLAIM") 

1015  { 

1016  } 


1017  /**  state  (CLAIM)  transition  processing  **/ 

1018  FSM.TRANSIT.FORCE  (0,  stateO_enter_exec,  ;) 

1019  /* */ 


1020  } 


1021  FSM.EXIT  (10,cp_fddi_mac) 

1022  } 
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1023  void 

1024  cp_fddi_mac_svar  (prs_ptr,var_name,var_p_ptr) 

1025  cp_fddi_mac_state  *prs_ptr; 

1026  char  *var_name,  **var_p_ptr; 

1027  { 

1028  FII  (cp_fddi_mac_svar  (prs.ptr)) 


1029  *var_p_ptr  =  VOS.NIL; 

1030  if  (Vos.String.Equal 

1031  *var_p_ptr  =  (char  *) 

1032  if  (Vos.String.Equal 

1033  *var_p_ptr  =  (char  *) 

1034  if  (Vos.String.Equal 

1035  *var_p_ptr  =  (char  *) 

1036  if   (Vos_String_Equal 

1037  *var_p_ptr  =   (char  *) 

1038  it   (Vos.String.Equal 

1039  *var_p_ptr  =  (char  *) 

1040  it   (Vos.String.Equal 

1041  *var_p_ptr  =  (char  *) 

1042  it   (Vos_String_Equal 

1043  *var_p_ptr  =  (char  *) 

1044  if  (Vos.String.Equal 

1045  *var_p_ptr  =  (char  *) 

1046  if  (Vos.String.Equal 

1047  *var_p_ptr  =  (char  *) 

1048  if  (Vos.String.Equal 

1049  *var_p_ptr  =  (char  *) 

1050  if  (Vos.String.Equal 

1051  *var_p_ptr  =  (char  *) 

1052  if  (Vos.String.Equal 

1053  *var_p_ptr  =  (char  *) 

1054  if  (Vos.String.Equal 

1055  *var_p_ptr  =  (char  *) 

1056  if  (Vos.String.Equal 

1057  *var_p_ptr  =  (char  *) 

1058  if  (Vos.String.Equal 

1059  *var_p_ptr  =  (char  *) 

1060  if  (Vos.String.Equal 

1061  *var_p_ptr  =  (char  *) 


"ring_id"  ,  var.name)) 
(fcprs_ptr->sv_ring_id) ; 
"THT"  ,  var.name)) 
(*prs_ptr->sv_THT) ; 
"T.Req"  ,  var.name)) 
(ftprs_ptr->sv_T_Req) ; 
"T.Pri"  ,  var.name)) 
(prs_ptr->sv_T_Pri) ; 
"my.objid"  ,  var.name)) 
(&prs_ptr->sv_my_objid) ; 
"spawn.token"  ,  var.name)) 
(&prs_ptr->sv_spawn_token) ; 
"my.address"  ,  var.name)) 
(&prs_ptr->sv_my_address) ; 
"orig_src_addr"  ,  var.name)) 
(ftprs_ptr->sv_orig_src_addr) ; 
"tk.pkptr"  ,  var.name)) 
(fcprs_ptr->sv_tk_pkptr) ; 
"sync.bandwidth"  ,  var.name)) 
(ftprs_ptr->sv_sync_bandwidth) ; 
"sync.pc"  ,  var.name)) 
(ftprs_ptr->sv_sync_pc) ; 
"restricted"  ,  var.name)) 
(ftprs_ptr->sv_restricted) ; 
"res.peer"  ,  var.name)) 
(tprs_ptr->sv_res_peer) ; 
"tk.registered"  ,  var.name)) 
(kprs_ptr->8v_tk_registered) ; 
"to_llc.ici.ptr"  ,  var.name)) 
(tprs_ptr->sv_to_llc_ici_ptr) ; 
"tk.trace.on"  ,  var.name)) 
(ftprs_ptr->sv_tk_trace_on) ; 


1062  FOOT; 

1063  } 


1064  void 

1065  cp_fddi.mac.diag  () 

1066  { 
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1067  /*  Packets  and  ICI's  */ 

1068  Packet*  mac_frame_ptr; 

1069  Packet*  pdu.ptr; 

1070  Packet*  pkptr; 

1071  Packet*  data.pkptr; 

1072  Ici*  ici.ptr; 

1073  /*  Packet  Fields  and  Attributes  */ 

1074  int  req_pri,  svc_class,  req_tk_class; 

1075  int  frame_control,  src_addr,  dest_addr; 

1076  int  pk_len,  pri.level; 

1077  /*  Token  -  Related  */ 

1078  int  tk.usable,  res_station,  tk_class; 

1079  int  current _tk_class; 

1080  double  accum.sync; 

1081  /*  Timer  -  Related  */ 

1082  double  tx_time,  timer.remaining,  accum_bandwidth; 

1083  double  tht.value; 

1084  /*  Miscellaneous  */ 

1085  int  i; 

1086  int  spawn_station,  phy_arrival; 

1087  char  error_string  [512] ; 

1088  int  num_frames_sent ,  num_bits_sent; 

1089  /*  26DEC93:  loop  management  variables,  used  in  RCV.TK  */ 

1090  /*  and  ENCAP  states.  -Nix  */ 

1091  int        NUM.PRI0S; 

1092  int       punt; 

1093  int        q_ check; 


1094  FIB  (cp_fddi_mac_diag  ()) 


1095  /*  Print  out  values  of  timers,  and  late  token  counter.   */ 

1096  /*  Also  print  out  data  about  restricted  mode.   */ 

1097  /*  (This  code  may  be  executed  by  the  simulation  debugger  */ 

1098  /*  by  invoking  the  command  'modprint').   */ 

1099  sprint!  (strO,  "Timers  (count  upwards):   TRT  C/..9g),  THT  C/..9g)", 

1100  fddi.timer. value  (TRT),  fddi_timer_value  (THT)); 

1101  sprintf  (strl,  "Late.ct  C/.d)M,  Late.Ct); 

1102  op_prg_odb_pr int .major  (strO,  strl,  0PC_NIL) ; 

1103  if  (restricted) 

1104  sprintf  (strO,  "token  is  in  restricted  dialog  with  C/.d)^",  res.peer); 

1105  else  sprintf  (strO,  "token  is  unrestricted\n"); 
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1106  op_prg_odb_print .major  (strO,  OPC.NIL) ; 


1107  FOUT; 

1108  } 


1109  void 

1110  cp_fddi_mac_terminate  () 

1111  { 

1112  /*  Packets  and  ICI's  */ 

1113  Packet*  mac_lrame_ptr; 

1114  Packet*  pdu.ptr; 

1115  Packet*  pkptr; 

1116  Packet*  data.pkptr; 

1117  Ici*  ici.ptr; 

1118  /*  Packet  Fields  and  Attributes  */ 

1119  int  req.pri,  svc_class,  req_tk_class; 

1120  int  xrame_control,  src_addr,  dest_addr; 

1121  int  pk_len,  pri_level; 

1122  /*  Token  -  Related  */ 

1123  int  tk.usable,  res.station,  tk_class; 

1124  int  current _tk_class; 

1125  double  accum_sync; 

1126  /*  Timer  -  Related  */ 

1127  double  tx_time,  timer_remaining,  accum_bandwidth; 

1128  double  tht_value; 

1129  /*  Miscellaneous  */ 

1130  int  i; 

1131  int  spawn_station,  phy_arrival; 

1132  char  error_string   [512]; 

1133  int  num_lrames_sent,  num_bits_sent ; 

1134  /*  26DEC93:  loop  management  variables,  used  in  RCV_TK  */ 

1135  /*  and  ENCAP  states.  -Nix  */ 

1136  int        NUM.PRI0S; 

1137  int        punt; 

1138  int        q_ check; 


1139  FIM  (cp_lddi_mac_terminate  ()) 
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1140  FOUT; 

1141  > 


1142  Compcode 

1143  cp_fddi_mac_init  (pr_state_pptr) 

1144  cp_fddi_mac_state  **pr_state_pptr; 

1145  { 

1146  static  VosT_Cm_Obtype  obtype  =  0PC_NIL; 

1147  FIN  (cp_fddi_mac_init  (pr_state_pptr)) 

1148  if  (obtype  ==  OPC.HIL) 

1149  { 

1150  if  (Vos_Catmem_Register  ("proc  state  vars  (cp_fddi_mac)M, 

1151  sizeof  (cp_fddi_mac_state) ,  Vos.Nop,  ftobtype)  ==  VOSC.FAILURE) 

1152  FRET  (0PC_C0MPC0DE_FAILURE) 

1153  } 

1154  if  ((*pr_state_pptr  =  (cp_fddi_mac_state*)  Vos_Catmem_Alloc  (obtype,  1))  ==  OPC.IIL) 

1155  FRET  (0PC_C0MPC0DE_FAILURE) 

1156  else 

1157  { 

1158  (*pr_state_pptr)->current_block  =  20; 

1159  FRET  (OPC.COHPCODE.SUCCESS) 

1160  } 

1161  } 


1162  /**  The  procedures  defined  in  this  section  serve  **/ 

1163  /**  to  simplify  the  code  in  the  main  body  of  the  **/ 

1164  /**  process  model  by  providing  primitives  for  timer  **/ 

1165  /**  manipulation..  **/ 

1166  static 

1167  fddi_timer_disable  (timer_ptr) 

1168  FddiT.Timer*  timer.ptr; 

1169  { 

1170  /*  if  the  timer  is  already  disabled,  do  nothing  */ 

1171  if  (timer_ptr->enabled) 

1172  { 

1173  /*  disable  the  timer  */ 

1174  timer_ptr->enabled  =  0; 

1175  /*  reassign  the  accumulated  time  so  far  */ 

1176  timer_ptr->accum  =  op_sim_time  ()  -  timer_ptr->start_time; 

1177  } 

1178  } 
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1179  static 

1180  fddi_timer_ enable  (timer_ptr) 

1181  FddiT_Timer*  timer_ptr; 

1182  { 

1183  /*  if  the  timer  is  already  enabled,  simply  return  ♦/ 

1184  if  (! timer _ptr-> enabled) 

1185  { 

1186  /*  reenable  the  timer  */ 

1187  timer _ptr->enabled  =  1; 

1188  /*  set  the  start  time  to  the  current  time  */ 

1189  /*  less  the  accumulated  time  so  far  */ 

1190  timer_ptr->start_time  =  op_sim_time  ()  -  timer_ptr->accum; 

1191  } 

1192  } 

1193  static 

1194  fddi_timer_expired  (timer.ptr) 

1195  FddiT.Timer*  timer.ptr; 

1196  { 

1197  if  (fddi_timer_remaining  (timer_ptr)  <=  0.0) 

1198  return  1; 

1199  else  return  0; 

1200  } 

1201  static 

1202  double 

1203  fddi_timer_remaining  (timer_ptr) 

1204  FddiT.Timer*  timer.ptr; 

1205  { 

1206  /*  if  the  timer  is  enabled,  update  the  accumulated  time  */ 

1207  if  (timer_ptr->enabled) 

1208  { 

1209  timer_ptr->accum  =  op_sim_time  ()  -  timer_ptr->start_time; 

1210  } 

1211  /*  return  the  timer  remaining  before  expiration  */ 

1212  /*  a  non-positive  value  indicates  an  expired  timer  */ 

1213  return  (timer_ptr->target_accum  -  timer_ptr->accum); 

1214  } 

1215  static 

1216  double 

1217  fddi_timer_value  (timer_ptr) 

1218  FddiT.Timer*  timer.ptr; 

1219  { 

1220  /*  if  the  timer  is  enabled,  update  the  accumulated  time  */ 

1221  if  (timer_ptr->enabled) 

1222  { 

1223  timer _ptr->accum  =  op_sim_time  ()  -  timer_ptr->start_time; 
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1224  > 

1225  return  (timer_ptr->accum) ; 

1226  > 

1227  static 

1228  fddi.timer.set.value  (timer_ptr,  value) 

1229  FddiT.Timer*  timer.ptr; 

1230  double  value; 

1231  { 

1232  timer_ptr->accum  =  value; 

1233  } 
1234 

1235  static 

1236  fddi.timer.copy  (from.timer.ptr,  to.timer.ptr) 

1237  FddiT.Timer*  from.timer.ptr; 

1238  FddiT.Timer*  to_timer_ptr; 

1239  { 

1240  Vos_Copy_Memory  (from.timer.ptr,  to_timer_ptr, 

1241  sizeof  (FddiT.Timer)); 

1242  } 

1243  static 

1244  fddi.timer.set  (timer.ptr,  duration) 

1245  FddiT.Timer*  timer.ptr; 

1246  { 

1247  /*  clear  out  accumulated  time  */ 

1248  timer_ptr->accum  =  0.0; 

1249  /*  assign  the  timer  duration  */ 

1250  timer_ptr->target_accum  =  duration; 

1251  /*  assign  the  current  time  */ 

1252  timer_ptr->start_time  =  op_sim_time  (); 

1253  /*  enable  the  timer  */ 

1254  timer_ptr->enabled  =  1; 

1255  > 

1256  static 

1257  FddiT.Timer* 

1258  iddi_timer_create  () 

1259  { 

1260  FddiT.Timer*  timer.ptr; 

1260  /*  allocate  memory  for  a  timer  structure  */ 

1261  timer.ptr  =  (FddiT.Timer*)  malloc  (sizeof  (FddiT.Timer)); 

1262  /*  initialize  the  timer  in  the  disabled  mode  */ 

1263  iddi.timer.init  (timer.ptr); 
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1264  /*  return  the  timer's  address  */ 

1265  return  (timer_ptr) ; 

1266  } 

1267  static 

1268  fddi_timer_init  (timer_ptr) 

1269  FddiT_Timer*  timer.ptr; 

1270  { 

1271  /*  the  timer  is  initially  disabled  */ 

1272  timer_ptr->enabled  =  0; 

1273  /*  the  accumulated  time  is  zero  */ 

1274  timer _ptr->accum  =0.0; 

1275  /*  the  target  accumulated  time  is  infinite  */ 

1276  timer_ptr->target_accum  =  V0S_D0UBLE_INFINITY; 

1277  /*  the  start  time  is  now  */ 

1278  timer _ptr->start_time  =  op_sim_time  (); 

1279  } 

1280  static 

1281  fddi_station_register  (address,  objid) 

1282  Objid  objid; 

1283  int  address; 

1284  { 

1285  /*  Fill  an  entry  in  the  table  which  maps  station  */ 

1286  /*  addresses  to  0PNET  object  ids  */ 

1287  FIS  (fddi_station_register  (address,  objid)) 

1288  Fddi_Address_Table  [address]  =  objid; 

1289  /*  Keep  track  of  total  number  of  stations  on  the  ring  */ 

1290  Fddi_Hum_Stations++; 

1291  FOUT 

1292  } 

1293  static 

1294  fddi_tk_register  () 

1295  { 

1296  /*  Register  the  station's  intent  to  use  the  token.   */ 

1297  /*  This  should  be  done  whenever  an  unregistered  */ 

1298  /*  station  obtains  new  data  to  transmit.   */ 

1299  FIM  (fddi_tk_regsister  ()) 

1300  /*  increase  the  number  of  registered  stations  */ 

1301  Fddi_Hum_Registered++; 

1302  /*  if  the  token  is  currently  blocked,  unblock  it  */ 

1303  if  (Fddi_Tk_Blocked  kk   Fddi_Tk_Accelerate) 

1304  { 
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1305  fddi.tk.unblock  (); 

1306  } 

1307  FOOT 

1308  } 

1309  static 

1310  fddi_tk_deregister  () 

1311  { 

1312  /*  Cancel  the  station's  intent  to  use  the  token.   */ 

1313  /*  This  should  be  done  whenever  a  registered  */ 

1314  /*  station  exhausts  its  transmittable  data.   */ 

1315  FII  (fddi_tk_deregsister  ()) 

1316  /*  decrease  the  number  of  registered  stations  */ 

1317  Fddi_Hum_Registered — ; 

1318  FOOT 

1319  } 

1320  static 

1321  fddi_tk_indicate_no_data  (token,  address,  delay) 

1322  Packet*  token; 

1323  int  address; 

1324  double  delay; 

1325  { 

1326  FIH  (fddi_tk_indicate_no_data  (token,  address,  delay)) 

1327  /*  The  calling  station  is  indicating  that  it  has  captured  */ 

1328  /*  the  token,  but  has  no  data  to  send.   If  no  other  stations  */ 

1329  /*  have  data  to  send  either,  the  token  may  be  blocked  to  gain  */ 

1330  /*  simulation  efficiency.   */ 

1331  if  (Fddi_Num_Registered  ==  0  ftft  Fddi_Tk_Accelerate) 

1332  { 

1333  fddi_tk_block  (token,  address); 

1334  > 

1335  else{ 

1336  /*  If  the  token  cannot  be  blocked,  send  it  into  the  ring.  */ 

1337  op_pk_send_delayed  (token,  FDDI_PHY_STRM_0UT, 

1337  delay  +  Fddi_Prop_Delay) ; 

1338  } 

1339  FOOT 

1340  } 

1341  static 

1342  fddi_tk_block  (token,  address) 

1343  Packet*  token; 

1344  int  address; 

1345  { 

1346  int  i; 
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1347  FIH  (fddi_tk_block  (token,  address)) 

1348  /*  Record  the  address  of  the  blocking  station  and  blocking  time.  */ 

1349  Fddi_Tk_Block_Base_Time  =  op_sim_time  (); 

1350  Fddi_Tk_Block_Base_Station  =  address; 

1351  if  (tk_trace_on  ==  OPC.TRUE) 

1352  { 

1353  sprintf  (strO,  "Blocking  Token:  station  C/.d) ,  time  C/,.91)" , 

1354  Fddi_Tk_Block_Base_Station,  Fddi_Tk_Block_Base_Time) ; 

1355  op_prg_odb_print .major  (strO,  0PC_HIL) ; 

1356  } 

1357  /*  Indicate  that  the  token  is  blocked  */ 

1358  Fddi_Tk_Blocked  =  1; 

1359  /*  discard  the  token  packet;  another  one  will  be  */ 

1360  /*  created  when  the  token  is  unblocked.  */ 

1361  op_pk_destroy  (token) ; 

1362  /*  Cancel  TRT  timers  at  all  MAC  interfaces;  otherwise  these  */ 

1363  /*  timers  may  continue  to  expitr  during  the  idle  period,  */ 

1364  /*  generating  unnecessary  events.  */ 

1365  if  (tk.trace.on  ==  0PC_TRUE) 

1366  { 

1367  sprintf  (strO,  "Canceling  timers  for  (*/.d)  stations",  Fddi_Sum_Stations) ; 

1368  op_prg_odb_print .major  (strO,  OPC.HIL) ; 

1369  } 

1370  for  (i  =  0;  i  <  Fddi_Num_Stations;  i++) 

1371  { 

1372  /*  Retain  the  time  at  which  the  TRT  would  have  expired;  */ 

1373  /*  this  is  used  for  calculations  when  the  token  is  */ 

1374  /*  reinjected  into  the  ring.   */ 

1375  Fddi_Trt_Exp_Time  [i]  =  op_ev_time  (Fddi_Trt_Handle  [i]); 

1376  /*  Cancel  the  TRT  expiration  event.  */ 

1377  op_ev_cancel  (Fddi_Trt_Handle  [i] ) ; 

1378  } 

1379  FOUT 

1380  } 

1381  static 

1382  fddi.tk.unblock  () 

1383  { 

1384  double  elapsed.time,  first_tk_rx,  last_tk_rx; 

1385  double  tk_lap_time,  next_time,  current_time; 

1386  double  dbl_num_hops ,  num_tk_rx,  floor  (),  ceil  (); 

1387  int  i,  num.hops,  next.station; 


109 


1388  FIH  (fddi_tk_unblock  ()) 

1389  /*  reset  the  blocking  indicator  */ 

1390  Fddi_Tk_Blocked  =  0; 

1391  /*  Get  the  current  time,  used  for  many  calculations  below  */ 

1392  current_time  =  op_sim_time  (); 

1393  if  (tk_trace_on  ==  OPC.TRUE) 

1394  { 

1395  sprintl  (strO,  "Unblocking  token  lor  ring  ('/.d)",  ring_id) ; 

1396  op_prg_odb_print .major  (strO,  0PC_HIL) ; 

1396  } 

1397  /*  For  all  stations  on  the  ring,  adjust  TRT  timer  and  Late_Ct  flag.  */ 

1398  for  (i  =  0;  i  <  Fddi_Num_Stations;  i++) 

1399  { 

1400  if  (tk_trace_on  ==  OPC.TRUE) 

1401  { 

1402  sprintf  (strO,  "adjusting  state  of  station  C/.d)",  i) ; 

1403  op_prg_odb_print_minor  ("",  strO,  OPC.NIL) ; 

1404  } 

1405  /*  Calculate  number  of  hops  separating  station  i  from  block  base  station.   */ 

1406  /*  In  special  case  where  i  is  the  base  station,  the  token  must  run  a  full  */ 

1407  /*  lap  before  returning.  */ 

1408  if  (i  !=  Fddi_Tk_Block_Base_Station) 

1409  { 

1410  num.hops  =  (i  -  Fddi_Tk_Block_Base_Station)  '/.  Fddi_Num_Stations; 

1411  if  (num_hops  <  0) 

1412  num_hops  =  Fddi_Num_Stations  +  num_hops; 

1413  } 

1414  else  num.hops  =  Fddi_Num_Stations; 

1415  /*  Calculate  first  time  at  which  token  would  have  been  received  by  station  i.   */ 

1416  /*  Note  that  initial  release  of  token  from  base  station  takes  a  different  */ 

1417  /*  amount  of  time  than  repeating  of  token  by  other  stations.  Thus,  the  first  */ 

1418  /*  hop  is  assumed,  and  the  base  time  is  augmented  by  the  time  required  to  */ 

1419  /*  complete  it.   */ 

1420  first.tk.rx  =  Fddi_Tk_Block_Base_Time  +  FDDIC_T0KEH_TX_TIME  +  Fddi.Prop.Delay  + 

1421  (num.hops  -  1)  *  Fddi_Tk_Hop_Delay; 

1422  if  (tk_trace_on  ==  0PC.TRUE) 

1423  { 

1424  sprintf  (strO,  "station  is  (*/,d)  hops  from  base",  num.hops); 

1425  sprintf  (strl,  "first  receipt  of  token  would  be  at  (*/,.9f)",  f irst_tk_rx) ; 

1426  op_prg_odb_print_minor  (strO,  strl,  OPC.NIL); 

1427  } 

1428  /*  Case  1:  the  token  would  not  yet  have  been  received  by  station  i.  */ 

1429  if  (first_tk_rx  >  current.time) 
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1430  { 

1431  /*  Case  la:  the  TRT  at  station  i  would  not  yet  have  expired.  */ 

1432  if  (Fddi.Trt.Exp.Time  [i]  >  current .time) 

1433  { 

1434  /*  Late_Ct  remains  at  its  original  value;  only  the  TRT  needs  */ 

1435  /*  to  be  started  again,  with  the  same  expiration  time.  */ 

1436  TRT.SET  (i,  Fddi_Trt_Exp_Time  [i]) 

1437  if  (tk.trace.on  ==  OPC.TRUE) 

1438  { 

1439  sprintf  (strO,  "Restoring  TRT  to  previous  exp.  time  C/..9f)",  Fddi_Trt_Exp_Time  [i]); 

1440  op_prg_odb_print .minor  ("Token  would  not  be  received  and  TRT  not  expired",  strO,  OPC.HIL) ; 

1441  } 

1442  } 

1443  /*  Case  lb:  the  TRT  at  station  i  would  have  expired.  */ 

1444  else 

1445  { 

1446  /*  Late.Ct  would  have  been  set;  also  the  timer  would  have  been  rescheduled  */ 

1447  /*  lor  an  entire  TTRT  at  the  time  of  expiration.   */ 

1448  Fddi_Late_Ct  [i]  =  1; 

1449  TRT.SET  (i,  (Fddi_T_0pr  +  Fddi.Trt.Exp.Time  [i])) 

1450  if  (tk_trace_on  ==  OPC.TRUE) 

1451  { 

1452  sprintf  (strO,  "Restoring  TRT  to  proper  exp.  time  (y..9f)",  Fddi_T_0pr  +  Fddi_Trt_Exp_Time 

1453  op_prg_odb_print .minor  ("Token  would  not  be  received  and  TRT  would  have  expired",  strO,  OP 

1454  } 

1455  } 

1456  } 

1457  /*  Case  2:  the  token  would  have  been  received  (perhaps  more  than  once).  */ 

1458  else 

1459  { 

1460  /*  Calculate  the  number  of  times  the  token  would  have  been  received  */ 

1461  /*  not  including  the  first  receipt.   */ 

1462  tk.lap.time  =  Fddi.Tk.Hop.Delay  *  Fddi.Hum.Stations; 

1463  num.tk.rx  =  floor  ((current.time  -  first.tk.rx)  /  tk.lap.time); 

1464  /*  Calculate  the  latest  time  at  which  the  token  would  have  been  received.  */ 

1465  last.tk.rx  =  first.tk.rx  +  (num.tk.rx  *  tk.lap.time) ; 
1466 

1467  /*  Clear  Late.Ct  and  schedule  timer  to  expire  at  last  receipt  of  token  */ 

1468  /*  plus  one  full  TTRT.   */ 

1469  Fddi.Late.Ct  [i]  =  0; 

1470  TRT.SET  (i,  (last.tk.rx  +  Fddi.T.Opr)) 

1471  if  (tk.trace.on  ==  0PC.TRUE) 

1472  { 

1473  sprintf  (strO,  "token  received  (*/.g)  times,  last  receipt  at  (*/,.9f)", 

1474  num_tk_rx  +  1.0,  last.tk.rx); 

1475  sprintf  (strl,  "Restoring  TRT  to  proper  exp.  time  (5C.9f)", 
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1476  last_tk_rx  +  Fddi_T_Opr) ; 

1477  op_prg_odb_print_minor  ("Token  would  have  been  received;  Late_Ct  is  cleared", 

1478  strl,  strO,  OPC.NIL) ; 

1479  } 

1480  } 

1481  } 

1482  /*  compute  the  time  since  the  token  was  blocked  */ 

1483  elapsed.time  =  current.time  -  Fddi_Tk_Block_Base_Time; 

1484  /*  compute  the  number  of  hops  completed  on  the  ring.  For  the  first  hop  */ 

1485  /*  the  token  is  transmitted  directly,  not  repeated.  For  all  remaining  */ 

1486  /*  hops,  the  delay  is  the  station  latency  plus  the  propagation  delay.   */ 

1487  /*  Thus,  the  first  hop  is  assumed,  and  the  remaining  time  for  additional*/ 

1488  /*  hops  is  computed  beginning  at  the  time  where  the  token  enters  the  */ 

1489  /*  base  station's  downstream  neighbor.   */ 

1490  dbl_num_hops  =  1.0  + 

1491  (elapsed.time  -  FDDIC_TOKEN_TX_TIME  -  Fddi.Prop.Delay)  /  Fddi_Tk_Hop_Delay ; 

1492  /*  If  the  token  was  unblocked  in  less  time  than  it  would  have  taken  to  */ 

1493  /*  be  fully  transmitted  by  the  base  station,  dbl_num_hops  will  be  */ 

1494  /*  negative.  However,  1  full  hop  would  still  be  required  before  the   */ 

1495  /*  token  could  be  used,  since  the  station  had  already  committed  to  */ 

1496  /*  issuing  the  token.  Thus,  the  actual  of  number  of  hops  should  never  */ 

1497  /*  be  less  than  1.  If  it  is,  round  it  to  1.   */ 

1498  if  (dbl_num_hops  <  1.0) 

1499  dbl_num_hops  =  1.0; 

1500  else 

1501  { 

1502  /*  In  all  other  cases,  round  the  number  of  hops  up  to  the  nearest  */ 

1503  /*  integer  value.  If  already  an  integer,  then  leave  as  is.   */ 

1504  dbl_num_hops  =  ceil  (dbl_num_hops) ; 

1505  } 

1506  /*  Obtain  an  integer  equivalent  of  dbl_num_hops .  */ 

1507  num_hops  =  dbl_num_hops ; 

1508  /*  Based  on  the  number  of  hops  and  the  base  station,  compute  the  */ 

1509  /*  next  station  where  the  token  will  appear.  */ 

1510  next.station  =  (num.hops  +  Fddi_Tk_Block_Base_Station)  '/,  Fddi_Num_Stations; 

1511  /*  Compute  the  time  at  which  the  token  will  appear  there.   */ 

1512  /*  Again,  assume  the  first  hop  occurred,  and  measure  time  */ 

1513  /*  from  there  forward.   */ 

1514  next.time  =  Fddi_Tk_Block_Base_Time  +  (FDDIC_T0KEH_TX_TIME  +  Fddi.Prop.Delay)  + 

1515  (dbl_num_hops  -  1.0)  *  Fddi_Tk_Hop_Delay; 

1516  if  (tk_trace_on  ==  0PC.TRUE) 

1517  { 

1518  sprintf  (strO,  "Re-introducing  token  at  station  C/.d) ,  at  time  (*/,.9f)", 

1519  next.station,  next.time); 
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1520  op_prg_odb_print_minor   (strO,   OPC.NIL) ; 

1521  } 

1522  /*  reinject  the  token  at  that  station  */ 

1523  fddi_tk_inject  (next_station,  next_time); 

1524  FOOT 

1525  } 

1526  static 

1527  fddi_tk_inject  (address,  arv_time) 

1528  int  address; 

1529  double  arv_time; 

1530  { 

1531  /*  Re-insert  the  token  into  the  ring  after  an  idle  period.  */ 

1532  FIH  (fddi_tk_inject  (address,  arv_time)) 

1533  /*  The  token  is  recreated  and  reinserted  onto  the  ring  */ 

1534  /*  at  the  specified  station  which  is  not  necesssarily  the  */ 

1535  /*  station  now  requesting  the  token.  */ 

1536  /*  The  station  which  will  reinsert  the  token  is  */ 

1537  /*  asked  to  do  so  by  means  of  a  remote  interrupt.  */ 

1538  op_intrpt_schedule_remote  (arv.time,  FDDIC_TK_INJECT, 

1539  Fddi_Address_Table  [address]); 

1540  FOOT 

1541  } 

1542  static 

1543  fddi_load_frame_attrs  (dest_addr_ptr,  svc_class_ptr,  pri_level_ptr) 

1544  int  *dest_addr_ptr,  *svc_class_ptr,  *pri_level_ptr; 

1545  { 

1546  int  HUM.PRIOS,  i;    /*  26JAN94  */ 

1547  Packet  *pkptr; 

1548  FIH  (fddi_load_frame_attrs  (dest_addr_ptr,  svc_class_ptr,  pri_level_ptr)) 

1549  /*  remove  next  packet  in  queue  */ 

1550  /*  27DEC94:  loop  structure  superimposed  to  handle  a  bank  of  subqueues.  */ 

1551  /*  Extract  the  packet  with  the  highest  priority,  that  is,  the  packet  */ 

1552  /*  at  the  head  of  the  highest-numbered  subqueue  containing  packets.  */ 

1553  /*  Note  that  the  C  language  vector  numbering  convention  numbers  the  */ 

1554  /*  subqueues  from  0  to  7,  while  FDDI  convention  is  to  number  the  */ 

1555  /*  corresponding  asynchronous  priorities  from  1  to  8.  This  is  */ 

1556  /*  reconciled  in  the  statistical  outputs  available  in  the  Analysis  */ 

1557  /*  Editor,  where  labels  are  assigned  accordingly.   Also  note  that  */ 

1558  /*  synchronous  traffic  is  assigned  priority  8  as  an  artifice  to  allow  */ 

1559  /*  routing  through  a  separate  subqueue,  by  which  statistics  may  be  */ 

1560  /*  gathered  for  traffic  by  class  and  by  priority.  -Hix  */ 

1561  HUM.PRI0S  =  9; 

1562  for  (i  =  HUM.PRI0S  -  1;  i  >  -1;  i— ) 
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1563  { 

1564  if   (op_subq_stat   (i,   OPC_QSTAT_PKSIZE)   >  0.0) 

1565  { 

1566  pkptr  =  op_subq_pk_remove   (i,   0PC_QP0S_HEAD) ; 

1567  break; 

1568  } 

1569  } 

1570  /*  extract  the  fields  of  interest  */ 

1571  op_pk_nfd_get  (pkptr,  "dest.addr",  dest_addr_ptr) ; 

1572  op_pk_nfd_get  (pkptr,  "svc.class" ,  svc_class_ptr) ; 

1573  /*  only  read  priority  level  if  frame  is  asynchronous  */ 

1574  if  (*svc_class_ptr  ==  FDDI_SVC_ASYNC) 

1575  op_pk_nfd_get  (pkptr,  "pri" ,  pri_level_ptr) ; 

1576  /»  replace  the  packet  on  the  proper  subqueue  */ 

1577  op_subq_pk_insert  (i,  pkptr,  0PC_QP0S_HEAD) ; 

1578  FOUT 

1579  } 
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APPENDIX  C 
CPNI  SINK  "C"  CODE 

"cp_fddi_sink.pr.c" 

The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre- 
spond with  that  seen  in  OPNET's  text  editors. 


1  /*  Process  model  C  lorn  file:  cp_fddi_sink.pr.c  */ 

2  /*  Portions  of  this  iile  Copyright  (C)  MIL  3,  Inc.  1992  */ 


2  /*  OPNET  system  definitions  */ 

3  # include  <opnet.h> 

4  #include  "cp_fddi_sink.pr.h" 

5  FSM_EXT_DECS 


6  /*  Header  block  */ 

7  /*  Globals  */ 

8  /*  array  format  installed  20JAN94;  positions  0-7  represent  the  asynch  priority  levels,  PRIOR 

9  /*  represents  synch  traffic,  and  grand  totals  are  as  given  in  the  original. 

10  #define         PRIORITIES        8  /*  20JAH94  */ 

11  #define  XMITTER.ONE  0   /*10MAY94*/ 

12  #define  XMITTER.TWO  1 

13  #define  XMITTER.THREE  2 

14  #define  XMITTER.FOUR  3 


15  static  /*  05FEB94  */ 

16  double         fddi_sink_accum_delay  =0.0; 

17  static  /*  05FEB94  */ 

18  double  fddi_sink_accum_delay_a [PRIORITIES* 1] ={0.0.  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0}; 

19  static  /*  05FEB94  */ 

20  int  fddi_sink_total_pkts  =  0; 

21  static  /*  05FEB94  */ 

22  int  fddi_sink_total_pkts_a [PRIORITIES  +  1]   =  {0,  0,  0,  0,  0,  0,  0,  0,  0>; 

23  static  /*  05FEB94  */ 

24  double         fddi_sink_total_bits  =0.0; 

25  static  /*  05FEB94  */ 

26  double  fddi_sink_total_bits_a[PRIORITIES+l]={0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0}; 

26  static  /*  05FEB94  */ 

27  double         fddi_sink_peak_delay  =0.0; 

28  static  /*  05FEB94  */ 

29  double  fddi_sink_peak_delay_a[PRI0RITIES+2]={0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0}; 
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/*  05FEB94  */ 


/*  05FEB94  */ 
/*  20JAN94  */ 


30  static 

31  int  fddi_sink_scalar_ write  =  0; 

32  static 

33  int  pri_set  =  20; 

34  static 

35  int  subq_index  =  0;  /*  5APR94  */ 

36  static 

37  int  prev_src_addr[4]={0,  1,  2,  3};  /*25APR94*/ 

38  double  buffer [4] ={0.0, 0.0, 0.0, 0.0};  /*10MAY94*/ 


39  /*  statistics  used  for  CDL  throughput  */ 

40  static  /*  20APR94  */ 

41  int  fddilpl_total_pkts  =  0; 

42  static 

43  int  fddilpl_total_pkts_a[PRIORITIES  +  1]      =  {0,   0,   0,   0,   0,   0,   0,   0,   0}; 

44  static 

45  double  fddilpl_total_bits  =0.0; 

46  static 

47  double  fddilpl_total_bits_a [PRIORITIES  +  1]   =  {0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  O.f 


48/*  Externally  defined  globals.  */ 

49  extern  double  f ddi_t_opr  □  ; 

50  /* 12 JAN94 : attributes  from  the  Environment  file  */ 

51  double   Off ered.Load;        /*  12JAN94  */ 

52  double   Asynch.Of f ered_Load;  /*  12JAN94  */ 

53  /*  transition  expressions  */ 

54  #define  END_0F_SIM   op_intrpt_type()  ==  0PC_INTRPT_ENDSIM 


55  /*  State  variable  definitions  */ 

56  typedef  struct 

57  { 

58  FSM.SYS.STATE 

59  Gshandle 

60  Gshandle 

61  Gshandle 

62  Gshandle 

63  Gshandle 

64  Gshandle 

65  Gshandle 

66  Gshandle 

67  Objid 

68  }  cp_fddi_sink_state; 

69  #define  pr_state_ptr 


sv_thru_gshandle ; 
sv_m_delay_gshandle ; 
sv_ete_delay_gshandle ; 
sv_thru_gshandle_a[10] ; 
sv_m_delay_gshandle_a[lO] ; 
sv_ete_delay_gshandle_a[9] ; 
sv_t_gshandle; 
sv_t_gshandle_a[10] ; 
sv_my_id; 


((cp_fddi_sink_state*)   SimI_Mod_State_Ptr) 
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70  #define  thru_gshandle 

71  #deiine  m_delay_gshandle 

72  #def ine  ete_delay_gshandle 

73  #def ine  thru_gshandle_a 

74  #define  m_delay_gshandle_a 

75  tdefine  ete_delay_gshandle_a 

76  #deiine  t_gshandle 

77  #deiine  t_gshandle_a 

78  #def ine  my_id 


pr_state_ptr->sv_thru_gshandle 

pr_state_ptr->sv_m_delay_gshandle 

pr_state_ptr->sv_ete_delay_gshandle 

pr_state_ptr->sv_thru_gshandle_a 

pr_state_ptr->sv_m_delay_gshandle_a 

pr_state_ptr->sv_ete_delay_gshandle_a 

pr_state_ptr->sv_t_gshandle 

pr_state_ptr->sv_t_gshandle_a 

pr_state_ptr->sv_my_id 


79  /*  Process  model  interrupt  handling  procedure  */ 


80  void 

81  cp_fddi_sink  () 

82  { 

83  double  delay,  creat.time; 

84  Packet*  pkptr; 

85  Packet*        pkptrl  ;  /*5APR94*/ 

86  int  src_addr,  my.addr; 

87  int  dest_addr;/*14APR94*/ 

88  Ici*  irom_mac_ici_ptr; 

89  double  lddi_sink_ttrt ; 

90  int  xmit_subq_index;/*5APR94*/ 

91  int  load_balance_code;  /*6APR94*/ 

92  int  i, subq.no ;  /*25APR94*/ 

93  int  index;  /*10MAY94  */ 


94  FSM.ENTER  (cp_iddi_sink) 


95  FSM_BLOCK_SWITCH 
{ 

96  /* 

97  /**  state  (DISCARD)  enter  executives  **/ 

98  FSM_STATE_ENTER_UNFORCED  (0,  state0_enter_exec,  "DISCARD") 

99  { 

100  /*  determine  type  ol  interrupt : 10MAY94  */ 

101  switch  (op_intrpt_type()) 

102  { 

103  case  0PC_INTRPT_STAT: 

104  /*  the  interrupt  is  caused  by  the  transmitters'  status  */ 

105  { 

106  index  =  op_intrpt_stat(); 

107  ssitch(index) 

108  { 


*/ 
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109  case  XMITTERJDNE: 

110  { 

111  buffer[0]  =  op_stat_local_read(XMITTER_OHE) ; 

112  break; 

113  } 

114  case  XMITTER.TWO: 
US  { 

116  buffer[l]    =  op_stat_local_read(XMITTER_TWO) ; 

117  break; 

118  } 

119  case  XMITTER.THREE: 

120  { 

121  buffer [2]  =  op_stat_local_read(XMITTER_THREE) ; 

122  break; 

123  } 

124  case  XMITTER.FOUR: 

125  { 

126  buffer[3]    =  op_stat_local_read (XMITTER.FOUR) ; 

127  break; 

128  } 

129  default: 

130  { 

131  op_sim_end("***  FDDI-CDL  :  FATAL  ERROR", "Unexpected  stat  interrupt","",""); 

132  } 

133  } 

134  break; 

135  } 

136  case  OPC.INTRPT.STRM: 

137  /*  the  interrupt  is  caused  by  the  incoming  packets  */ 

138  { 

139  /*  get  the  packet  and  the  interface  control  info  */ 

140  pkptr  =  op_pk_get  (op_intrpt_strm  ()); 

141  from_mac_ici_ptr  =  op_intrpt_ici  (); 

142  /*  20JAN94:  get  the  packet's  priority  level,  which   */ 

143  /*  sill  be  used  to  index  arrays  of  thruput  and  delay  */ 

144  /*  computations.  */ 

145  /*  pri.set  =  op_pk_priority_get  (pkptr);  doesn't  work  here  */ 

146  op_pk_nfd_get  (pkptr,  "pri",  ftpri.set);      /*  29JAH94  */ 

147  /*  determine  the  time  of  creation  of  the  packet  */ 

148  op_pk_nfd_get  (pkptr,  "cr.time",  ftcreat.time) ; 

149  /*  18APR94: determine  the  destination  address  of  the  packet  */ 

150  op_pk_nfd_get  (pkptr,  "dest.addr",  ftdest.addr) ; 

151  /*  20APR94: determine  the  source  address  of  the  packet  */ 

152  op_pk_nfd_get  (pkptr,  "src_addr",  tsrc.addr) ; 

153  /*  7APR94: determine  id  of  own  processor  to  use  in  finding  */ 

154  /*  load  balancing  attribute  and  station  address  of  the  bridge  node  */ 
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155  my_id  =  op_id_self() ; 

156  /*  7APR94:  determine  which  load  balancing  algorithm  is  in  use  */ 

157  op_ima_obj_attr_get    (  my_id,    "load  balancing  algorithm",   Jkload_balance_code  ); 

158  /*  14APR94  :  also  get  my  own  address  */ 

159  op_ima_obj_attr_get  (  my_id,  "station.address" ,  tay_addr); 

160  /*  destroy  the  packet  */ 

161  /*  op_pk_destroy  (pkptr) ;  */ 

162  /*  03FEB94:  rather,  enqueue  the  packet.   This  will  be  the  */ 

163  /*  first  step  toward  developing  a  LAN  bridging  structure.  */ 

164  /*  -Mix  */ 

165  /*  op_subq_pk_insert  (pri.set,  pkptr,  0PC_QP0S_TAIL) ;  */ 

166  /*  14APR94:  check  the  frame  passed  to  "lie"  is  destined  for  */ 

167  /*  this  station.  If  it  is  destroy  the  packet  and  update  the  local  traffic  */ 

168  /*  statistics;  if  not,  allocate  the  packets  */ 

169  /*  to  the  transmitters  since  they  are  destined  for  the  remote  Ian  */ 

170  /*  update  also  incoming  return  link  statistics  for  the  frames  */ 

171  /*  which  will  be  queued  in  llc.sink  to  be  sent  to  remote  Ian.*/ 

172  /*  -Karayakaylar  */ 

173  if ((dest_addr  ==  my_addr)ftft(src_addr  <  my.addr)) 

174  { 

175  /*  add  in  its  size  */ 

176  fddi_sink_total_bits  +=  op_pk_total_size_get  (pkptr); 

177  fddi_sink_total_bits_a[pri_set]  +=  op_pk_total_size_get  (pkptr);  /*  20JAH-20APR94  */ 

178  /*  accumulate  delays  */ 

179  delay  =  op_sim_time   ()   -  creat_time; 

180  fddi_sink_accum_delay  +=  delay; 

181  fddi_sink_accum_delay_a[pri_set]  +=  delay;   /*  20JAH-20APR94  */ 

182  /*  keep  track  of  peak  delay  value  */ 

183  if  (delay  >  fddi_sink_peak_delay) 

184  fddi_sink_peak_delay  =  delay; 

185  /*  20JAN94:  keep  track  by  priority  levels  as  well  23JAH-20APR94  */ 

186  if  (delay  >  fddi_sink_peak_delay_a[pri_set]) 

187  fddi_sink_peak_delay_a[pri_set]   =  delay; 

188  op_pk_destroy  (pkptr) ; 

189  /*  increment  packet  counter;  20JAN94  */ 

190  fddi_sink_total_pkts++; 

191  fddi_sink_total_pkts_a[pri_set]++; 

192  /*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 

193  /*  03FEB94:    [0]->[7]    represent  asynch  priorities   l->8,      */ 

194  /*  respectively;  [8]  represents  synchronous  traffic,    */ 
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195  /*  and  [9]  represents  overall  asynchronous  traffic. -Hix  */ 

196  if  (fddi_sink_total_pkts  '/.  25  ==  0) 

197  { 

198  op_stat_global_write   (thru.gshandle, 

199  fddi_sink_total_bits  /  op_sim_time   ()); 

200  op_stat_global_write   (thru_gshandle_a[pri_set] , 

201  fddi_sink_total_bits_a[0]   /  op_sia_tiae()) ; 

202  op_stat_global_write   (thru_gshandle_a[0] , 

203  fddi_sink_total_bits_a[l]   /  op_sio_time()) ; 

204  op_stat_global_write   (thru_gshandle_a[l] , 

205  fddi_sink_total_bits_a[pri_set]   /  op_sim_time()) ; 

206  op_stat_global_write   (thru_gshandle_a[2] , 

207  fddi_sink_total_bits_a[2]    /  op_sim_time()) ; 

208  op_stat_global_write   (thru_gshandle_a[3] , 

209  fddi_sink_total_bits_a[3]   /  op_sim_time()) ; 

210  op_stat_global_write   (thru_gshandle_a[4] , 

211  fddi_sink_total_bits_a[4]   /  op_sim_time()) ; 

212  op_stat_global_orite   (thru_gshandle_a[5] , 

213  fddi_sink_total_bits_a[5]   /  op_sim_time()) ; 

214  op_stat_global_write   (thru_gshandle_a[6] , 

215  fddi_sink_total_bits_a[6]   /  op_sim_time()) ; 

216  op_stat_global_write   (thru_gshandle_a[7] , 

217  fddi_sink_total_bits_a[7]   /  op_sim_time()) ; 

218  op_stat_global_write   (thru_gshandle_a[8] , 

219  fddi_sink_total_bits_a[8]    /  op_sim_time()) ; 

220  /*  30JAN94:    gather  all  asynch  stats   into  one  overall  figure  */ 

221  op_stat_global_write   (thru_gshandle_a[9] , 

222  (fddi_sink_total_bits  -  fddi_sink_total_bits_a[8])   / 

223  op_sim_time()) ; 


(fddi_sink_total_bits_a[0]  +  fddi_sink_total_bits_a[l]    +  */ 

fddi_sink_total_bits_a[2]  +  fddi_sink_total_bits_a[3]    +  */ 

fddi_sink_total_bits_a[4]  +  fddi_sink_total_bits_a[5]    +  */ 

fddi_sink_total_bits_a[6]  +  fddi_sink_total_bits_a[7] )   /  */ 

op_sim_time()) ;  */ 


229  op_stat_global_write   (m_delay_gshandle , 

230  fddi_sink_accum_delay  /  fddi_sink_total_pkts) ; 

231  op_stat_global_srite   (m_delay_gshandle_a[0] , 

232  fddi_sink_accum_delay_a[0]   /  fddi_sink_total_pkts_a[0] ) 

233  op_stat_global_write   (m_delay_gshandle_a[l] , 

234  fddi_sink_accum_delay_a[l]    /  fddi_sink_total_pkts_a[l] ) 

235  op_stat_global_write   (m_delay_gshandle_a[2] , 

236  fddi_sink_accum_delay_a[2]    /  fddi_sink_total_pkts_a[2] ) 

237  op_stat_global_write   (m_delay_gshandle_a[3] , 

238  fddi_sink_accum_delay_a[3]   /  fddi_sink_total_pkts_a[3] ) 
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224 

/* 

225 

/* 

226 

/* 

227 

/* 

228 

/* 

239  op_stat_global_write 

240  fddi.sink 

241  op_stat_global_write 

242  fddi_sink. 

243  op_stat_global_write 

244  fddi.sink. 

245  op_stat_global_write 

246  fddi.sink. 

247  op_stat_global_write 

248  fddi.sink. 


(m_delay_gshandle_a[4] , 
_accum_delay_a[4]    /  fddi_sink_total_pkts_a[4] ) 

(m_delay_gshandle_a[5] , 
_accum_delay_a[5]    /  fddi_sink_total_pkts_a[5]) 

(m_delay_gshandle_a[6] , 
_accum_delay_a[6]   /  fddi_sink_total_pkts_a[6]) 

(m_delay_gshandle_a[7] , 
,accum_delay_a[7]   /  fddi_sink_total_pkts_a[7]) 

(m_delay_gshandle_a[8] , 
.accum_delay_a [8]   /  fddi_sink_total_pkts_a[8] ) 


249  /*  30JAN94:   gather  all  asynch  stats  into  one  figure  */ 

250  op_stat_global_urite   (m_delay_gshandle_a[9] , 

251  (fddi_sink_accum_delay  -  fddi_sink_accum_delay_a[8])  / 

252  (iddi_sink_total_pkts  -  fddi_sink_total_pkts_a[8] )) ; 


253 

/* 

(fddi_sink_accum 

254 

/* 

fddi_sink_accum 

255 

/* 

fddi_sink_accum 

256 

/* 

fddi_sink_accum 

257 

/* 

(iddi_sink_total 

258 

/* 

lddi_sink_total 

259 

/* 

fddi_sink_total 

260 

/* 

lddi_sink_total 

.delay_a[0]    +  iddi_sink_accum_delay_a[l]    +  */ 

.delay_a[2]   +  iddi_sink_accum_delay_a[3]    +  */ 

.delay_a[4]    +  iddi_sink_accum_delay_a[5]    +  */ 

.delay_a[6]    +  fddi_sink_accum_delay_a[7] )   /  */ 

.pkts_a[0]   +  iddi_sink_total_pkts_a[l]   +  */ 

.pkts_a[2]    +  fddi_sink_total_pkts_a[3]    +  */ 

.pkts_a[4]    +  fddi_sink_total_pkts_a[5]    +  */ 

.pkts_a[6]    +  fddi_sink_total_pkts_a[7]));  */ 


261  /*  also  record  actual  delay  values   */ 

262  op_stat_global_write   (ete_delay_gshandle,  delay); 

263  op_stat_global_write   (ete_delay_gshandle_a[pri_set] ,   delay) ; 

264  } 

265  }  /*  end  of  if(dest_addr  ==  my_addr)ft&(src_addr  <  my.addr)  statement  */ 

266  /*  20APR94: destroy  the  packets  coming  from  the  remote  Ian  destined  for  this*/ 

267  /*  station.  These  packets  are  not  counted  for  local  traffic.*/ 

268  else  if(dest_addr  ==  my_addr) 

269  op_pk_destroy(pkptr) ; 

270  /*  20APR94:  check  the  frame  passed  to  "lie"  is  destined  for  remote  Ian  */ 

271  /*  This  will  allow  only  the  packets  to  be  counted  for  CDL  traffic.*/ 

272  /*  -Karayakaylar  */ 

273  else 

274  { 

275  /*  add  in  its  size  */ 

276  fddilpl_total_bits  +=  op_pk_total_size_get  (pkptr) ; 

277  fddilpl_total_bits_a[pri_set]  +=  op_pk_total_size_get  (pkptr);  /*  20APR94  */ 

278  /*  increment  packet  counter;  20APR94  */ 

279  fddilpl_total_pkts++; 
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280  fddilpl_total_pkts_a[pri_set]++; 

281  /*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 

282  /*  [0]->[7]  represent  asynch  priorities  l->8,   */ 

283  /*  respectively;  [8]  represents  synchronous  traffic,    */ 

284  /*  and  [9]  represents  overall  asynchronous  traffic. -Nix  */ 

285  if  (fddilpl_total_pkts  '/.  25  ==  0) 

286  { 

287  op_stat_global_write   (t_gshandle, 

288  fddilpl_total_bits  /  op_sio_tioe   ()); 

289  op_stat_global_write   (t_gshandle_a[pri_set] , 

290  fddilpl_total_bits_a[0]    /  op_sim_tioe()) ; 

291  op_stat_global_write   (t_gshandle_a[0] , 

292  fddilpl_total_bits_a[l]   /  op_sim_tioe()) ; 

293  op_stat_global_write   (t_gshandle_a[l] , 

294  fddilpl_total_bits_a[pri_set]    /  op_sim_time()) ; 

295  op_stat_global_write   (t_gshandle_a[2] , 

296  fddilpl_total_bits_a[2]   /  op_sio_time()) ; 

297  op_stat_global_write   (t_gshandle_a[3] , 

298  fddilpl_total_bits_a[3]    /  op_sim_time()) ; 

299  op_stat_global_write   (t_gshandle_a[4] , 

300  fddilpl_total_bits_a[4]    /  op_sim_tioe()) ; 

301  op_stat_global_write   (t_gshandle_a[5] , 

302  fddilpl_total_bits_a[5]    /  op_sim_time()) ; 

303  op_stat_global_write    (t_gshandle_a[6] , 

304  fddilpl_total_bits_a[6]    /  op_sim_tioe()) ; 

305  op_stat_global_write    (t_gshandle_a[7] , 

306  fddilpl_total_bits_a[7]    /  op_sim_time()) ; 

307  op_stat_global_write   (t_gshandle_a[8] , 

308  fddilpl_total_bits_a[8]    /  op_sim_time()) ; 

309  /*  gather  all  asynch  stats   into  one  overall  figure  */ 

310  op_stat_global_write   (t_gshandle_a[9] , 

311  (fddilpl.total.bits  -  fddilpl.total_bits_a[8])  / 

312  op_sim_time()); 


313  /*  (fddilpl_total_bits_a[0]  +  fddilpl_total_bits_a[l]    +  */ 

fddilpl_total_bits_a[2]  +  fddilpl_total_bits_a[3]    +  */ 

fddilpl_total_bits_a[4]  +  fddilpl_total_bits_a[5]    +  */ 

fddilpl_total_bits_a[6]  +  fddilpl_total_bits_a[7])   /  */ 
op_sim_time()) ;  */ 

318  } 


319  /*  14APR94  : allocate  the  packets  to  llc_sink  subqueues  */ 

320  /*  6APR94  -Karayakaylar*/ 
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314 

/* 

315 

/* 

316 

/* 

317 

/* 

321  /*  check  if  load  balancing  algorithm  is  circular  */ 

322  /*  zero(O)  is  the  circular  load  balancing  code  */ 

323  if  (load_balance_code  ==  0) 

324  { 

325  /*  5APR94  */ 

326  /*  Apply  load  balancing  to  insert  the  packets  in  the  */ 

327  /*  subqueues,  in  a  circular  order  */ 

328  i  =  subq_ index  */,  4; 

329  /*  check  if  previous  source  address  is  allocated  to  this  queue  */ 

330  /*  if  so,  allocate  the  packet  to  that  subqueue  so  that  consecutive  packets  */ 

331  /*  coming  from  the  same  station  follow  the  same  channel  */ 

332  /*  otherwise,  allocate  the  packet  to  the  next  queue  for  transmission  */ 

333  if (prev_src_addr[i]   ==  src_addr) 

334  { 

335  op_subq_pk_insert(i,   pkptr,   0PC_qP0S_TAIL) ; 

336  prev_src_addr[i]    =  src_addr; 

337  } 

338  else 

339  { 

340  subq_index++; 

341  subq.no  =  subq_  index  '/.  4; 

342  op_subq_pk_ insert (subq.no,  pkptr,  OPC.QPOS.TAIL) ; 

343  prev.src.addr [subq.no]  =  src.addr; 

344  } 

345  } 


346  /*  25APR94  */ 

347  /*  check  if  load  balancing  algorithm  is  empty  allocation  */ 

348  /*  one(l)  is  the  empty  allocation  load  balancing  code  */ 

349  if  (load.balance.code  ==  1) 

350  { 

351  i=  subq. index  '/,  4; 

352  /*  check  if  previous  source  address  is  allocated  to  this  queue  */ 

353  if (prev.src.addr [i]  ==  src.addr) 

354  { 

355  op_subq_pk_insert(i,  pkptr,  OPC.qPOS.TAIL) ; 

356  prev.src.addr [i]  =  src.addr; 

357  } 

358  else 

359  /*  Apply  load  balancing  to  insert  the  packets  in  the     */ 

360  /*  subqueues  by  choosing  the  subqueue  which  has  the  maximum  current  */ 

361  /*  number  of  free  packet  slots  */ 

362  { 

363  subq.no  =  op_subq_index_map(OPC_QSEL_MAX_FREE_PKSIZE) ; 

364  op.subq.pk_ insert (subq.no,  pkptr,  OPC.QPOS.TAIL); 

365  prev_src_addrCsubq.no]   =  src.addr; 

366  subq_index++; 

367  } 

368  } 
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369  /*  send  the  packets  to  the  transmitters  */ 

370  xmit.subq. index  =  i; 

371  /*  check  if  this  sub-queue  is  empty  and  transmitter  is  not  busy  */ 

372  if  (( lop.subq. empty (xmit_subq_index))ft&(buff er[xmit_subq_index]  ==  0.0)) 

373  { 

374  /^access  the  first  packet  in  the  subqueue  */ 

375  pkptrl  =  op_subq_pk_remove  (xmit_subq_index,  0PC_QP0S_HEAD) ; 

376  /*  forward  it  to  the  destination  xmitter  */ 

377  /*  associated  with  the  subqueue  index  */ 

378  op_pk_send  (pkptrl,  xmit_subq_index  ); 

379  > 

380  }/*if (dest.addr  >  my.addr)  statement  */ 

381  break; 

382  }/*  end  of  case  OPC_INTRPT_STRM  statement  */ 

383  }/*  end  of  switch  */ 

384  } 


385  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

386  FSM.EXIT  (1 ,cp_fddi_sink) 


387  /**  state  (DISCARD)  exit  executives  **/ 

388  FSM_STATE_EXIT_UNFORCED  (0.  state0_exit_exec,  "DISCARD") 

389  { 

390  } 


391  /**  state  (DISCARD)  transition  processing  **/ 

392  FSM_IHIT_C0ND  (END_0F_SIM) 

393  FSM_DFLT_C0ND 

394  FSM_TEST_L0GIC  ("DISCARD") 

395  FSM.TRANSIT.SWITCH 

396  { 

397  FSM_CASE_TRANSIT  (0,  1,  statel.enter.exec.  ;) 

398  FSM_CASE_TRANSIT  (1,  0,  stateO_enter_exec,  ;) 

399  } 

400  /* */ 


401  /**  state  (STATS)  enter  executives  **/ 

402  FSM_STATE_ENTER_UNFORCED  (1,  statel.enter.exec,  "STATS") 

403  { 

404  /*  At  end  of  simulation,  scalar  performance  statistics  */ 

405  /*  and  input  parameters  are  written  out.  */ 

406  op.stat.scalar.write  ("RL  Throughput  (bps),  Priority  1", 

407  fddilpl_total_bits_a[0]  /  op.sim.time  ());  /*20APR94*/ 
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408  op_stat_scalar_write  ("RL  Throughput  (bps) ,  Priority  2", 

409  iddilpl_total_bits_a[l]  /  op_sim_time  ()); 

410  op_stat_scalar_write  ("RL  Throughput  (bps),  Priority  3", 

411  iddilpl_total_bits_a[2]  /  op.sim.time  ()); 

412  op_stat_scalar_write  ("RL  Throughput  (bps),  Priority  4", 

413  iddilpl_total_bits_a[3]   /  op.sim.time   ()); 

414  op_stat_8calar_write  ("RL  Throughput  (bps),  Priority  5", 

415  iddilpl_total_bits_a_4]  /  op.sim.time  ()); 

416  op_stat_scalar_write  ("RL  Throughput  (bps),  Priority  6", 

417  iddilpl_total_bits_a[5]   /  op.sim.time  ()); 

418  op.stat.scalar.write  ("RL  Throughput  (bps),  Priority  7", 

419  fddilpl_total_bits_a[6]    /  op.sim.time   ()); 

420  op_stat_scalar_write  ("RL  Throughput  (bps),  Priority  8", 

421  iddilpl_total_bits_a[7]   /  op.sim.time   ()); 

422  op.stat.scalar.write   ("RL  Throughput   (bps),  Asynchronous", 

423  (iddilpl.total.bits  -  iddilpl_total_bits_a[8] )  /  op.sim.time   ()); 


424  /*  (iddilpl_total_bits_a[0]  +  fddilpl_total_bits_a[l]   +  */ 

425  /*  fddilpl_total_bits_a[2]  +  iddilpl_total_bits_a[3]   +  */ 

426  /*  lddilpl_total_bits_a[4]  +  iddilpl_total_bits_a[5]    +  */ 

427  /*  lddilpl_total_bits_a[6]  +  lddilpl_total_bits_a[7] )   /  */ 

428  /*  op_sim_time   ());                                                                                       */ 


429  op_stat_scalar_write   ("RL  Throughput   (bps),  Synchronous", 

430  iddilpl_total_bits_a[8]   /  op_sim_time   ()); 

431  op_stat_scalar_write  ("RL  Throughput  (bps),  Total", 

432  lddilpl_total_bits  /  op.sim.time  ());  /*20APR94*/ 


433  /*  Only  one  station  needs  to  do  this  */ 

434  if   (!lddi_sink_scalar_write) 

435  { 

436  /*  set  the  scalar  write  Hag  */ 

437  iddi.sink.scalar.write  =  1; 

438  op.stat.scalar.write   ("Mean  End-to-End  Delay-0  (sec),   Priority  1", 

439  iddi.sink_accum_delay_a[0]   /  fddi_sink_total_pkts_a[0] ) ; 
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op_stat_scalar_ write   ("Mean  End-to-End  Delay-0   (sec).   Priority  2", 
iddi_sink_accum_delay_a[l]   /  fddi_sink_total_pkts_a[l] ) ; 

op_stat_scalar_ write    ("Mean  End-to-End  Delay-0   (sec),    Priority  3", 
fddi_sink_accum_delay_a[2]   /  iddi_sink_total_pkts_a[2]); 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-0   (sec),   Priority  4", 
iddi_sink_accum_delay_a[3]   /  iddi_sink_total_pkts_a[3] ) ; 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-0   (sec),   Priority  5", 
iddi_sink_accuo_delay_a[4]   /  fddi_sink_total_pkts_a[4] ) ; 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-0   (sec),   Priority  6", 
iddi_sink_accum_delay_a[5]   /  iddi_sink_total_pkts_a[5]) ; 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-0   (sec),   Priority  7", 
iddi_sink_accum_delay_a[6]   /  iddi_sink_total_pkts_a[6] ) ; 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-0   (sec),   Priority  8", 
iddi_sink_accum_delay_a[7]    /  iddi_sink_total_pkts_a[7] ) ; 

op_stat_scalar_write   ("Mean  End-to-End  Delay-0   (sec),   Asynchronous", 
(fddi_sink_accum_delay  -  iddi_sink_accum_delay_a[8])   / 
(iddi_sink_total_pkts  -  iddi_sink_total_pkts_a[8])); 

(iddi_sink_accum_delay_a[0]   +  iddi_sink_accum_delay_a[l]    +  */ 

iddi_sink_accum_delay_a[2]   +  iddi_sink_accum_delay_a[3]    +  */ 

iddi_sink_accum_delay_a[4]   +  iddi_sink_accum_delay_a[5]    +  */ 

iddi_sink_accum_delay_a[6]    +  iddi_sink_accum_delay_a[7] )   /  */ 

(iddi_sink_total_pkts_a[0]    +  lddi_sink_total_pkts_a[l]   +  */ 

fddi_sink_total_pkts_a[2]    +  iddi_sink_total_pkts_a[3]   +  */ 

iddi_sink_total_pkts_a[4]   +  lddi_sink_total_pkts_a[5]   +  */ 

lddi_sink_total_pkts_a[6]    +  lddi_sink_total_pkts_a[7])) ;  */ 


465  op_stat_scalar_ write   ("Mean  End-to-End  Delay-0   (sec),   Synchronous", 

466  fddi_sink_accum_delay_a[S]   /  iddi_sink_total_pkts_a[8] ); 

467  op_stat_scalar_ write   ("Mean  End-to-End  Delay-0   (sec),   Total", 

468  iddi_sink_accum_delay  /  iddi_sink_total_pkts); 

469  op_stat_scalar_write   ( "Throughput-0   (bps),   Priority  1", 

470  iddi_sink_total_bits_a[0]    /  op_sim_time   ()); 

471  op_stat_scalar_write   ("Throughput-0   (bps),   Priority  2", 

472  fddi_sink_total_bits_a[l]   /  op_sim_time   ()); 

473  op_stat_scalar_write   ("Throughput-0   (bps),   Priority  3", 

474  lddi_sink_total_bits_a[2]   /  op_sim_time  ()); 

475  op_stat_scalar_ write   ("Throughput-0   (bps),   Priority  4", 
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440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

/* 

458 

/* 

459 

/* 

460 

/* 

461 

/* 

462 

/* 

463 

/* 

464 

/* 

476  iddi_sink_total_bits_a[3]  /  op_sim_time  ()); 

477  op_stat_scalar_write  ("Throughput-0  (bps) ,  Priority  5", 

478  iddi_sink„total_bits_a[4]  /  op_sim_time  ()); 

479  op_stat_scalar_write  ("Throughput-0  (bps),  Priority  6", 

480  fddi_sink_total_bits_a[5]   /  op_sim_time  ()); 

481  op_stat_scalar_write  ("Throughput -0  (bps),  Priority  7", 

482  iddi_sink_total_bits_a[6]   /  op_sim_time  ()); 

483  op_stat_scalar_ write  ( "Throughput -0  (bps),  Priority  8", 

484  iddi_sink_total_bits_a[7]   /  op_sim_time  ()); 

485  op_stat_scalar_write  ( "Throughput -0  (bps),  Asynchronous", 

486  (iddi_sink_total_bits  -  iddi_sink_total_bits_a[8])  /  op_sim_time   ()); 


487  /*  (iddi_sink_total_bits_a[0]  +  iddi_sink_total_bits_a[l]   +  */ 

488  /*  iddi_sink_total_bits_a[2]  +  iddi_sink_total_bits_a[3]   +  */ 

489  /*  iddi_sink_total_bits_a[4]  +  iddi_sink_total_bits_a[5]   +  */ 

490  /*  iddi_sink_total_bits_a[6]  +  iddi_sink_total_bits_a[7])   /  */ 

491  /*  op_sim_time  ());  */ 


492  op_stat_scalar_write  ( "Throughput -0  (bps),  Synchronous", 

493  fddi_sink_total_bits_a[8]   /  op_sim_ti»«  ()); 

494  op_stat_scalar_ write  ( "Throughput -0  (bps),  Total", 

495  fddi_sink_total_bits  /  op_sim_time  ()); 


496  op_stat_scalar_write  ("Peak  End-to-End  Delay-0  (sec),  Priority  1", 

497  iddi_sink_peak_delay_a[0]); 

498  op_stat_scalar_ write  ("Peak  End-to-End  Delay-0  (sec).  Priority  2", 

499  lddi_sink_peak_delay_a[l]); 

500  op_stat_scalar_ write  ("Peak  End-to-End  Delay-0  (sec),  Priority  3", 

iddi_sink_peak_delay_a[2] ) ; 

501  op_stat_scalar_ write  ("Peak  End-to-End  Delay-0  (sec).  Priority  4", 

502  lddi_sink_peak_delay_a[3]); 

503  op_stat_scalar_ write  ("Peak  End-to-End  Delay-0  (sec),  Priority  5", 

504  iddi_sink_peak_delay_a[4]); 

505  op_stat_scalar_ write  ("Peak  End-to-End  Delay-0  (sec),  Priority  6", 

506  lddi_sink_peak_delay_a[5]); 

507  op_stat_scalar_ write  ("Peak  End-to-End  Delay-0  (sec),  Priority  7", 
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508  fddi_sink_peak_delay_a[6]); 

509  op_stat_scalar_ write  ("Peak  End-to-End  Delay-0  (sec),  Priority  8", 

510  fddi_sink_peak_delay_a[7]); 

511  op_stat_scalar_write  ("Peak  End-to-End  Delay-0  (sec),  Synchronous", 

512  xddi_sink_peak_delay_a[8] ); 

513  op_stat_scalar_ write  ("Peak  End-to-End  Delay-0  (sec),  Overall", 

514  fddi_sink_peak_delay) ; 


515  /*  Write  the  TTRT  value  lor  ring  0.   This  preserves  */ 

516  /*  the  old  behavior  lor  single-ring  simulations.  */ 

517  op_stat_scalar_write  ("TTRT  (sec.)  -  Ring  0", 

518  lddi_t_opr  [0]); 

519  /*  12JAN94:  obtain  offered  load  information  from  the  Environment  */ 

520  /*  file;  this  will  be  used  to  provide  abscissa  information  that   */ 

521  /*  can  be  plotted  in  the  Analysis  Editor  (see  "fddi_sink"  STATS  */ 

522  /*  state.  To  the  user:  it's  your  job  to  keep  these  current  in    */ 

523  /*  the  Environment  File.  -Nix  */ 

524  op_ima_sim_attr_get  (0PC_IMA_D0UBLE,  "total.of f ered_load_0" ,  fcOf f ered.Load) ; 

525  op_ima_sim_attr_get  (0PC_IMA_D0UBLE,  "asynch.off ered_load_0" ,  &Asynch_0ff ered.Load); 


526  /*  12JAN94:  write  the  total  offered  load  for  this  run  */ 

527  op_stat_scalar_write  ("Total  Offered  Load-0  (Mbps)", 

528  Of f ered.Load) ; 


529  op_stat_scalar_ write  ("Asynchronous  Offered  Load-0  (Mbps)", 

530  Asynch_0ff ered.Load) ; 

531  > 

532  > 


533  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

534  FSM.EXIT  (3,cp_fddi_sink) 


535  /**  state  (STATS)  exit  executives  **/ 

536  FSM_STATE_EXIT_UNF0RCED  (1,  statel.exit.exec,  "STATS") 

537  { 

538  > 


539  /**  state  (STATS)  transition  processing  **/ 

540  FSM.TRANSIT.MISSING  ("STATS") 

541  /* */ 
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542  /**  state  (INIT)  enter  executives  **/ 

543  FSM_STATE_ENTER_FORCED  (2,  state2_enter_exec,  "IMIT") 

544  { 

545  /*  get  the  gshandles  of  the  global  statistic  to  be  obtained  */ 

546  /*  20JAN94:  set  array  format  */ 


547  thru. 

548  thru. 

549  thru. 

550  thru. 

551  thru. 

552  thru. 

553  thru, 

554  thru. 

555  thru. 

556  thru. 

557  thru. 


.gshandle_a[0] 
.gshandle_a[l] 
.gshandle_a[2] 
.gshandle_a[3] 
.gshandle_a  [4] 
,gshandle_a[5] 
.gshandle.a  [6] 
.gshandle_a[7] 
.gshandle.a  [8] 
.gshandle.a  [9] 
.gshandle 


op_stat. 
op_stat. 
op_stat. 
op_stat. 
op_stat. 
op_stat. 
op_stat. 
op_stat. 
op_stat. 
op.stat. 
op_stat. 


,global_reg 
.global_reg 
,global_reg 
.global_reg 
,global_reg 
,global_reg 
,global_reg 
global_reg 
global_reg 
,global_reg 
global_reg 


"pri 

"pri 

"pri 

"pri 

"pri 

"pri  6 

"pri  7 

"pri  8 

"synch 

"async 

"total 


throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 
throughput-0 


(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 


558  m_delay_gshandle_a[0]  =  op_stat_global_reg 

559  m_delay_gshandle_a[l]  =  op_stat_global_reg 

560  m_delay_gshandle_a[2]  =  op_stat_global_reg 

561  m_delay_gshandle_a[3]  =  op_stat_global_reg 

562  m_delay_gshandle_a[4]  =  op_stat_global_reg 

563  m_delay_gshandle_a[5]  =  op_stat_global_reg 

564  m_delay_gshandle_a[6]  =  op_stat_global_reg 

565  m_delay_gshandle_a[7]  =  op_stat_global_reg 

566  m_delay_gshandle_a[8]  =  op_stat_global_reg 

567  m_delay_gshandle_a[9]  =  op_stat_global_reg 

568  m_delay_gshandle  =  op_stat_global_reg 


"pri  1 
"pri  2 
"pri  3 
"pri  4 
"pri  5 
"pri  6 
"pri  7 
"pri  8 
"synch 
"async 
"total 


mean 
mean 
mean 
mean 
mean 
mean 
mean 
mean 
mean 
mean 
mean 


delay-0 
delay-0 
delay-0 
delay-0 
delay-0 
delay-0 
delay-0 
delay-0 
delay-0 
delay-0 
delay-0 


(sec. ) 
(sec. ) 
(sec. ) 
(sec. ) 
(sec. ) 
(sec. ) 
(sec. ) 
(sec.) 
(sec.) 
(sec. ) 
(sec. ) 


569  ete_delay_gshandle_a[0]  =  op_stat_global_reg 

570  ete_delay_gshandle_a[l]  =  op_stat_global_reg 

571  ete_delay_gshandle_a[2]  =  op_stat_global_reg 

572  ete_delay_gshandle_a[3]  =  op_stat_global_reg 

573  ete_delay_gshandle_a[4]  =  op_stat_global_reg 

574  ete_delay_gshandle_a[5]  =  op_stat_global_reg 

575  ete_delay_gshandle_a[6]  =  op_stat_global_reg 

576  ete_delay_gshandle_a[7]  =  op_stat_global_reg 

577  ete_delay_gshandle_a[8]  =  op_stat_global_reg 

578  ete_delay_gshandle  =  op_stat_global_reg 

579  t_gshandle_a[0]  =  op_stat_global_reg  ("pri  1 

580  t_gshandle_a[l]  =  op_stat_global_reg  ("pri  2 

581  t_gshandle_a[2]  =  op_stat_global_reg  ("pri  3 

582  t_gshandle_a[3]  =  op_stat_global_reg  ("pri  4 

583  t_gshandle_a[4]  =  op_stat_global_reg  ("pri  5 

584  t_gshandle_a[5]  =  op_stat_global_reg  ("pri  6 

585  t_gshandle_a[6]  =  op_stat_global_reg  ("pri  7 

586  t_gshandle_a[7]  =  op_stat_global_reg  ("pri  8 

587  t_gshandle_a[8]  =  op_stat_global_reg  ("synch 


("pri  1 
("pri  2 
("pri  3 
("pri  4 
("pri  5 
("pri  6 
("pri  7 
("pri  8 
("synch 
("total 


end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 


end  delay-0 
end  delay-0 
end  delay-0 
end  delay-0 
end  delay-0 
end  delay-0 
end  delay-0 
end  delay-0 
end  delay-0 
end  delay-0 


(sec.) 
(sec.) 
(sec. ) 
(sec. ) 
(sec.) 
(sec. ) 
(sec.) 
(sec.) 
(sec.) 
(sec.) 


RL  throughput  (bps) 

RL  throughput  (bps) 

RL  throughput  (bps) 

RL  throughput  (bps) 

RL  throughput  (bps) 

RL  throughput  (bps) 

RL  throughput  (bps) 

RL  throughput  (bps) 

RL  throughput  (bps) 


/♦20APR94*/ 
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588  t_gshandle_a[9]  =  op_stat_global_reg  ("async  RL  throughput  (bps)"); 

589  t_gshandle      =  op_stat_global_reg  ("total  RL  throughput  (bps)"); 


590  } 


591  /**  state  (INIT)  exit  executives  **/ 

592  FSM_STATE_EXIT_FORCED  (2,  state2_exit_exec,  "IMIT") 

593  { 

594  } 


595  /**  state  (INIT)  transition  processing  **/ 

596  FSM_INIT_C0ND  (END_0F_SIM) 

597  FSM_DFLT_C0ND 

598  FSM.TEST.LOGIC  ("INIT") 

599  FSM_TRANSIT_SWITCH 

600  { 

601  FSM_CASE_TRANSIT  (0,  1,  statel.enter.exec,  ;) 

602  FSM_CASE_TRANSIT  (1,  0,  stateO.enter.exec,  ;) 

603  } 

604  /* */ 


605  } 


606  FSM.EXIT  (2,cp_lddi_sink) 

607  } 


608  void 

609  cp_lddi_sink_svar  (prs_ptr,var_name,var_p_ptr) 

610  cp_lddi_sink_state  *prs_ptr; 

611  char  *var_name,  **var_p_ptr; 

612  { 

613  FIN  (cp_fddi_sink_svar  (prs.ptr)) 

614  *var_p_ptr  =  VOS.NIL; 

615  ii   (Vos_String_Equal  ("thru_gshandle"  ,  var_name)) 

616  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_thru_gshandle) ; 

617  if  (Vos_String_Equal  ("m_delay_gshandle"  ,  var.name)) 

618  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_m_delay_gshandle) ; 

619  il  (Vos_String_Equal  ("ete_delay_gshandle"  ,  var.name)) 
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620  *var_p_ptr  =  (char  »■)  (&prs_ptr->sv_ete_delay_gshandle) ; 

621  if  (Vos_String_Equal  ("thru_gshandle_a"  ,  var_name)) 

622  *var_p_ptr  =  (char  *)  (prs_ptr->sv_thru_gshandle_a) ; 

623  ii  (Vos_String_Equal  ("m_delay_gshandle_a"  ,  var.name)) 

624  *var_p_ptr  =  (char  *)  (prs_ptr->sv_m_delay_gshandle_a) ; 

625  ii  (Vos_String_Equal  ("ete_delay_gshandle_a"  ,  var_name)) 

626  *var_p_ptr  =  (char  *)  (prs_ptr->sv_ete_delay_gshandle_a) ; 

627  ii  (Vos_String_Equal  ("t_gshandle"  ,  var_name)) 

628  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_t_gshandle) ; 

629  ii  (Vos_String_Equal  ("t_gshandle_a"  ,  var.name)) 

630  *var_p_ptr  =  (char  *)  (prs_ptr->sv_t_gshandle_a) ; 

631  it   (Vos_String_Equal  ("my_id"  ,  var.name)) 

632  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_my_id) ; 

633  FOUT; 

634  } 


635  void 

636  cp_fddi_sink_diag  () 

637  { 

638  double  delay,  creat.time; 

639  Packet*  pkptr; 

640  Packet*         pkptrl  ;  /*5APR94*/ 

641  int  src.addr,  my.addr; 

642  int  dest_addr;/*14APR94*/ 

643  Ici*  irom_mac_ici_ptr; 

644  double  iddi_sink_ttrt; 

645  int  xmit_subq_index;/*5APR94*/ 

646  int  load_balance_code;  /*6APR94*/ 

647  int  i,subq_no;  /*25APR94*/ 

648  int  index;  /*10MAY94  */ 


649  FIH  (cp_iddi_sink_diag  ()) 


650  FOUT; 

651  } 


652  void 

653  cp_iddi_sink_tenninate   () 

654  { 

655  double  delay,  creat.time; 

656  Packet*  pkptr; 

657  Packet*         pkptrl  ;  /*5APR94*/ 
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658  int  src_addr,  my_addr; 

659  int  dest_addr;/*14APR94*/ 

660  Ici*  from_mac_ici_ptr; 

661  double  fddi_sink_ttrt; 

662  int     xmit_subq_index;/*5APR94*/ 

663  int  load_balance_code;    /*6APR94*/ 

664  int   i, subq.no;    /*25APR94*/ 

665  int  index;    /*10MAY94  */ 


666  FII  (cp_fddi_sink_t emanate  ()) 


667  FOUT; 

668  } 


669  Compcode 

670  cp_fddi_sink_init  (pr_state_pptr) 

671  cp_fddi_sink_state  **pr_state_pptr; 

672  { 

673  static  VosT_Cm_Obtype  obtype  =  OPC.HIL; 

674  FIH  (cp_fddi_sink_init  (pr_state_pptr)) 

675  if  (obtype  ==  OPC.HIL) 

676  { 

677  if  (Vos_Catmem_Register  ("proc  state  vars  (cp_fddi_sink)", 

678  sizeof  (cp_fddi_sink_state) ,  Vos_Nop,  ftobtype)  ==  VOSC.FAILURE) 

679  FRET  (0PC_C0MPC0DE_FAILURE) 

680  } 


681  if  ((*pr_state_pptr  =  (cp_fddi_sink_state*)  Vos_Catmem_Alloc  (obtype,  1))  ==  OPC.IIL) 

682  FRET  (OPC.COMPCODE.FAILURE) 

683  else 

684  { 

685  (*pr_state_pptr)->current_block  =  4; 

686  FRET  (0PC_C0MPC0DE_SUCCESS) 

687  } 

688  } 
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APPENDIX  D 
SPNI  SOURCE  "C"  CODE 

"sp_fddi_gen.pr.c" 

The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre- 
spond with  that  seen  in  OPNET's  text  editors. 


1  /*  Process  model  C  form  file:  sp_fddi_gen.pr.c  */ 

2  /*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


2  /*  OPNET  system  definitions  */ 

3  # include  <opnet.h> 

4  #include  "sp_fddi_gen.pr.h" 

5  FSM_EXT_DECS 


6  /*  Header  block  */ 

7  #def ine  MAC_LAYER_OUT_STREAM  0 

8  #define  LLC_SINK_OUT_STREAM  1  /*18APR94*/ 

9  /*  define  possible  service  classes  for  frames  */ 

10  #define  FDDI_SVC_ASYNC  0 

11  #define  FDDI.SVC.SYNC  1 

12  /*  define  token  classes  */ 

13  #define  FDDI_TK_NONRESTRICTED  0 

14  #define  FDDI_TK_RESTRICTED  1 


15  /*  State  variable  definitions  */ 

16  typedef  struct 

17  { 

18  FSM.SYS.STATE 

19  Distribution*  sv_inter_dist_ptr; 

20  Distribution*  sv_len_dist_ptr; 

21  Distribution*  sv_dest_dist_ptr; 

22  Distribution*  sv_pkt_priority_ptr; 

23  Objid  sv_mac_objid; 

24  Objid  sv_my_id; 

25  int  sv_low_dest_addr; 

26  int  sv_high_dest_addr; 
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27  int 

28  int 

29  int 

30  int 

31  double 

32  double 

33  double 

34  Ici* 

35  Ici* 

36  Ici* 

37  Packet* 

38  }  sp_iddi_gen_state; 


sv_station_addr; 

sv_src_addr; 

sv_low_pkt .priority ; 

sv_high_pkt .priority ; 

sv_arrival_rate ; 

sv.mean.pk.len; 

8v_async_mix; 

sv_mac_iciptr; 

sv_mac_iciptrl ; 

sv_llc_ici_ptr; 

sv_pkptrl; 


39  #define 

40  #dexine 

41  #define 

42  #define 

43  #define 

44  #def ine 

45  #define 

46  #define 

47  #define 

48  tfdezine 

49  #define 

50  #define 

51  #dezine 

52  #define 

53  #del ine 

54  #def ine 

55  #dexine 

56  #def ine 

57  #define 

58  #deiine 


pr_state_ptr 

inter.dist.ptr 

len_dist_ptr 

dest_dist_ptr 

pkt_priority_ptr 

mac_ob j id 

my.id 

low_dest_addr 

high_dest_addr 

station. addr 

src_addr 

low_pkt_priority 

high_pkt .priority 

arrival_rate 

mean_pk_len 

async.mix 

mac_iciptr 

mac_iciptrl 

llc_ici_ptr 

pkptrl 


( (sp_iddi_gen_state*)  SimI_Mod_State_Ptr) 

pr_state_ptr->sv_inter_diat_ptr 

pr_state_ptr->sv_len_dist_ptr 

pr_state_ptr->sv_dest_dist_ptr 

pr_8tate_ptr->sv_pkt_priority_ptr 

pr_8tate_ptr->sv_mac_obj  id 

pr_state_ptr->sv_my_id 

pr_state_ptr->sv_low_dest_addr 

pr_state_ptr->sv_high_de8t_addr 

pr_8tate_ptr->sv_8tation_addr 

pr_state_ptr->sv_src_addr 

pr_state_ptr->sv_low_pkt .priority 

pr_state_ptr->sv_high_pkt_priority 

pr_state_ptr->sv_arrival_rate 

pr_8tate_ptr->sv_mean_pk_len 

pr_8tate_ptr->8v_async_mix 

pr_state_ptr->8v_mac_iciptr 

pr_state_ptr->sv_mac_iciptrl 

pr_state_ptr->8v_llc_ici_ptr 

pr_state_ptr->sv_pkptrl 


59  /*  Process  model  interrupt  handling  procedure  */ 


60  void 

61  sp_fddi_gen  () 

62  { 

63  Packet  *pkptr; 

64  int  pklen; 

65  int  dest.addr; 

66  int  i,  restricted; 

67  int        pkt_prio; 
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68  FSM.ENTER  (sp_fddi_gen) 

69  FSM_BLOCK_SWITCH 

70  { 

71  /* */ 

72  /**  state  (INIT)  enter  executives  **/ 

73  FSM_STATE_ENTER_UNFORCED  (0,  stateO_enter_exec,  "HIT") 

74  { 

76  /*  determine  id  of  own  processor  to  use  in  finding  attrs  */ 

76  my_id  =  op_id_self  (); 

77  /*  determine  address  range  for  uniform  desination  assignment  */ 

78  op_ima_obj_attr_get  (my_id,  "low  dest  address",  felow_dest_addr) ; 

79  op_ima_obj_attr_get  (my_id,  "high  dest  address",  fthigh_dest_addr) ; 

80  /*  determine  object  id  of  connected  'mac'  layer  process  */ 

81  mac.objid  =  op_topo_assoc  (my.id,  0PC_T0P0_ASS0C_0UT, 

82  0PC_0BJMTYPE_M0DULE,  MAC_LAYER_OUT_STREAM) ; 

83  /*  determine  the  address  assigned  to  it  */ 

84  /*  which  is  also  the  address  of  this  station  */ 

85  op_ima_obj_attr_get   (mac.objid,    "station.address",   ftstation.addr) ; 


86  /*  set  up  a  distribution  for  generation  of  addresses  */ 

87  dest_dist_ptr  =  op_dist_load  ("unif orm_int",  low_dest_addr, 

88  high_dest_addr) ; 

89  /*  added  26DEC93  */ 

90  /*  determine  priority  range  for  uniform  traffic  generation  */ 

91  op_ima_obj_attr_get  (my_id,  "high  pkt  priority",  *high_pkt_priority) ; 

92  op_ima_obj_attr_get  (my_id,  "low  pkt  priority",  ftlow.pkt .priority) ; 

93  /*  set  up  a  distribution  for  generation  of  priorities  */ 

94  pkt_priority_ptr  =  op_dist_load  ("uniform_int",  low.pkt .priority,  high.pkt .priority) ; 

95  /*  above  added  26DEC93  */ 


96  /*  also  determine  the  arrival  rate  for  packet  generation  */ 

97  op_ima_obj_attr_get  (my_id,  "arrival  rate",  ftarrival_rate) ; 

98  /*  determine  the  mix  of  asynchronous  and  synchronous  */ 

99  /*  traffic.  This  is  expressed  as  the  proportion  of  */ 

100  /*  asynchronous  traffic,  i.e  a  value  of  1.0  indicates  */ 

101  /*  that  all  the  produced  traffic  shall  be  asynchronous.  */ 

102  op_ima_obj_attr_get  (my_id,  "async.mix",  tasync_mix); 

103  /*  set  up  a  distribution  for  arrival  generations  */ 

104  if  (arrival.rate  !=  0.0) 
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105  { 

106  /*  arrivals  are  exponentially  distributed,  with  given  mean  */ 

107  inter_dist_ptr  =  op_dist_load  ("constant",  1.0  /  arrival.rate,  0.0); 

108  /*  determine  the  distribution  for  packet  size  */ 

109  op_ima_obj_attr_get  (my_id,  "mean  pk  length",  ftmean_pk_len) ; 

110  /*  set  up  corresponding  distribution  */ 

111  len_dist_ptr  =  op_dist_load  ("constant",  mean_pk_len,  0.0); 

112  /*  designate  the  time  of  first  arrival  */ 

113  fddi_gen_schedule  (); 

114  /*  set  up  an  interface  control  information  (ICI)  structure  */ 

115  /*  to  communicate  parameters  to  the  mac  layer  process  */ 

116  /*  (it  is  more  efficient  to  set  one  up  now  and  keep  it  */ 

117  /*  as  a  state  variable  than  to  allocate  one  on  each  packet  xfer)  */ 

118  mac.iciptr  =  op_ici_create  ("fddi_mac_req") ; 

119  } 

120  > 


121  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

122  FSM.EXIT  (1 ,sp_fddi_gen) 


123  /**  state  (INIT)  exit  executives  **/ 

124  FSM_STATE_EXIT_UNF0RCED  (0,  stateO_exit_exec,  "INIT") 

125  { 

126  } 


127  /**  state  (INIT)  transition  processing  **/ 

128  FSM_TRANSIT_F0RCE  (1,  statel_enter_exec,  ;) 

129  /* */ 


130  /**  state  (ARRIVAL)  enter  executives  **/ 

131  FSM_STATE_ENTER_UNFORCED  (1,  statel_enter_exec,  "ARRIVAL") 

132  { 

133  /*  This  station  should  receive  frames  from  the  other  Ian  as  long  as  */ 

134  /*  there  are  frames  in  the  input  streams  addressed  to  this  Ian  */ 

135  /*check  if  the  interrupt  type  is  stream  interrupt  *//*12APR94*/ 

136  if(op_intrpt_type()  ==  0PC_INTRPT_STRM) 

137  { 

138  /*  if  it  is,  get  the  packet  in  the  input  stream  causing  interrupt  */ 

139  pkptrl  =  op_pk_get(op_intrpt_strm()) ; 

140  /*  get  the  destination  address  of  the  frame    :    16APR94  */ 

141  op_pk_nfd_get (pkptrl,    "dest_addr",   ftdest.addr) ; 
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142  /*  check  if  this  frame  is  for  the  remote  bridge  station(bridge  in  surface  Ian)  */ 

143  if (dest_addr  ==  station. addr) 

144  /*  if  it  is,  send  the  packet  to  llc_sink  directly  */ 

145  /*  in  order  to  prevent  overhead  of  mac  access  */ 

146  op_pk_send(pkptrl,  LLC_SINK_OUT_STREAM) ;/*19APR94*/ 

147  else 

148  /*  this  packet  is  to  send  to  mac  */ 

149  { 

150  /*  determine  the  source  address  of  the  frame  */ 

151  op_pk_nfd_get(pkptrl,  Msrc_addr",  tsrc.addr) ; 

152  /*  set  up  an  ICI  structure  to  communicate  parameters  to  */ 

153  /*  MAC  layer  process  */ 

154  mac_iciptrl  =  op_ici_create("fddi_mac_req") ; 

155  /*  place  the  original  source  address  into  the  ICI  *//*  16APR94  */ 

156  /*  "fddi.mac.req"  is  modified  so  that  it  contains  the  original  */ 

157  /*  source  address  from  the  local  Ian (collect ion  platform)  */ 

158  op_ici_attr_set(mac_iciptrl,  "src_addr",  src_addr) ; 

159  /*  place  the  destination  address  into  the  ICI  */  /*12APR94*/ 

160  op_ici_attr_set(mac_iciptrl,  "dest_addr",  dest_addr); 

161  /*  assign  the  service  class  and  requested  token  class  */ 

162  /*  At  this  moment  the  frames  coming  from  the  remote  Ian  are  assumed  */ 

163  /*  to  have  the  same  priority  as  synchronous  frames  in  order  not  to  accumulate  */ 

164  ./*  packets  on  the  bridge  station  mac  and  instead  to  deliver  their  destinations  */ 

165  /*  as  soon  as  possible  */ 

166  op_pk_nfd_set(pkptrl,  "pri",  8); 

167  op_ici_attr_set(mac_iciptrl,  "svc.class",  FDDI_SVC_SYNC) ; 

168  op_ici_attr_set(mac_iciptrl,  "pri",  8); 

169  op_ici_attr_set(mac_iciptrl,  "tk.class",  FDDI_TK_NONRESTRICTED) ; 

170  /*  send  the  packet  coupled  with  the  ICI  */ 

171  op_ici_install(mac_iciptrl) ; 

172  op_pk_send(pkptrl,  MAC_LAYER_OUT_STREAM) ; 

173  } 

174  } 

175  /*  otherwise,  generate  the  frame  */ 

176  else 

177  { 

178  /*  determine  the  length  of  the  packet  to  be  generated  */ 

179  pklen  =  op_dist_outcome  (len_dist_ptr) ; 

180  /*  determine  the  destination  */ 

181  /*  dont  allow  this  station's  address  as  a  possible  outcome  */ 

182  gen.packet: 

183  dest.addr  =  op_dist_outcome  (dest_dist_ptr) ; 

184  if  (dest_addr  !=  -1  tt   dest_addr  ==  station_addr) 

185  goto  gen.packet; 

186  /*  26DEC94  ft  29JAN94:  determine  its  priority  */ 

187  pkt_prio  =  op_dist_outcome  (pkt_priority_ptr) ; 

188  /*  create  a  packet  to  send  to  mac  */ 

189  pkptr  =  op_pk_create_fmt  ("fddi_llc_fr") ; 
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190  /*  assign  its  overall  size.  */ 

192  op_pk_total_size_set  (pkptr,  pklen) ; 

193  /*  assign  the  time  of  creation  */ 

194  op_pk_nfd_set  (pkptr,  "cr_time",  op.sim.time  ()); 

195  /*  place  the  destination  address  into  the  ICI  */ 

196  /*  (the  protocol.type  field  will  default)  */ 

197  op_ici_attr_set  (mac_iciptr,  "dest.addr",  dest.addr); 

198  /*  place  the  source  address  into  the  ICI  *//*  17APR94*/ 

199  op_ici_attr_set  (mac.iciptr,  "src_addr",  station. addr ) ; 

200  /*  assign  the  priority,  and  requested  token  class  */ 

201  /*  also  assign  the  service  class;  29JAN94:  the  fddi_llc_fr  */ 

202  /*  format  is  modified  to  include  a  "pri"  field.  */ 

203  if  (op_dist_uniform  (1.0)  <=  async_mix) 

204  { 

205  'op_pk_nfd_set  (pkptr,  "pri",  pkt.prio) ;   /*  29JAH94  */ 

206  op_ici_attr_set  (mac.iciptr,  "svc.class",  FDDI_SVC_ASYHC) ; 

207  op_ici_attr_set  (mac.iciptr,  "pri",  pkt.prio);   /*  29JAN94  */ 

208  } 

209  else{ 

210  op_pk_nfd_set  (pkptr,  "pri",  8);  /*  29JAN94  */ 

211  op.ici.attr.set  (mac.iciptr,  "svc.class",  FDDI_SVC_SYHC) ; 

212  op_ici_attr_set  (mac.iciptr,  "pri",  8);    /*  29JAH94  */ 

213  } 

214  /*  Request  only  nonrestricted  tokens  after  transmission  */ 

215  op_ici_attr_set  (mac.iciptr,  "tk.class",  FDDI_TK_H0NRESTRICTED) ; 
216 

217  /*  Having  determined  priority,  assign  it;  26DEC93  */ 

218  /*  op_ici_attr_set  (mac.iciptr,  "pri",  pkt_prio) ;  */ 

219  /*  send  the  packet  coupled  with  the  ICI  */ 

220  op_ici_install  (mac_iciptr) ; 

221  /*  check  if  destination  address  is  in  the  local  Ian (collect ion  platform)*/ 

222  if(dest_addr  <=  9) 

223  /*  if  it  is,  this  packet  is  to  send  llc_sink  directly  */ 

224  op.pk.send  (pkptr,  LLC.SINK.OUT.STREAM) ;  /*18APR94*/ 

225  else 

226  /*  if  not,  the  packet  is  destined  for  remote  Ian  (surface  stations)*/ 

227  op.pk.send  (pkptr,  MAC.LAYER.OUT.STREAM) ; 

228  /*  schedule  the  next  arrival  */ 

229  fddi.gen.schedule  (); 

230  } 

231  } 
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232  /**  blocking  after  enter  executives  of  unforced  state. 

233  FSM.EXIT  (3,sp_fddi_gen) 


**/ 


234  /**  state  (ARRIVAL)  exit  executives  **/ 

235  FSM_STATE_EXIT_UNFORCED  (1,  statel_exit_exec, 

236  { 

237  } 


•ARRIVAL") 


238  /**  state  (ARRIVAL)  transition  processing  **/ 

239  FSM_TRANSIT_FORCE  (1,  statel_enter_exec,  ;) 

240  /* 


-*/ 


241  } 


242  FSM.EXIT  (0,sp_fddi_gen) 

243  } 


244  void 

245  sp_fddi_gen_svar  (prs_ptr,var_name,var_p_ptr) 

246  sp_fddi_gen_state  *prs_ptr; 

247  char  *var_name,  **var_p_ptr; 

248  { 


249  FII  (sp_fddi_gen_svar  (prs_ptr)) 


250  *var_p_ptr  =  VOS.NIL; 

251  if  (Vos_String_Equal 

252  *var_p_ptr  =  (char  * 

253  if  (Vos_String_Equal 

254  *var_p_ptr  =  (char  * 

255  if  (Vos_String_Equal 

256  *var_p_ptr  =  (char  * 

257  if  (Vos_String_Equal 

258  *var_p_ptr  =  (char  * 

259  if  (Vos_String_Equal 

260  *var_p_ptr  =  (char  * 

261  if  (Vos_String_Equal 

262  *var_p_ptr  =  (char  * 

263  if  (Vos_String_Equal 

264  *var_p_ptr  =  (char  * 

265  if  (Vos_String_Equal 

266  *var_p_ptr  =  (char  * 

267  if  (Vos_String_Equal 


("inter_dist_ptr"  ,  var.name)) 
)  (ftprs_ptr->sv_inter_dist_ptr) ; 

("len_dist_ptr"  ,  var.name)) 
)  (fcprs_ptr->sv_len_dist_ptr) ; 

("dest_dist_ptr"  ,  var_name)) 
)  (&prs_ptr->sv_dest_dist_ptr) ; 

("pkt_priority_ptr"  ,  var_name)) 
)  (ftprs_ptr->sv_pkt_priority_ptr) ; 

("mac.objid"  ,  var.name)) 
)  (tprs_ptr->sv_mac_objid) ; 

("oy.id"  ,  var.name)) 
)  (tprs_ptr->sv_my_id); 

("low_dest_addr"  ,  var.name)) 
)  (ftprs_ptr->sv_low_dest_addr) ; 

("high_dest_addr"  ,  var_name)) 
)  (ftprs_ptr->sv_high_dest_addr) ; 

("station_addr"  ,  var.name)) 
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268  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_station_addr) ; 

269  if  (Vos_String_Equal  ("src.addr"  ,  var.name)) 

270  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_src_addr) ; 

271  if  (Vos_String_Equal  ("low_pkt .priority"  ,  var.name)) 

272  *var_p_ptr  =  (char  *)  (fcprs_ptr->sv_low_pkt_priority) ; 

273  it   (Vos_String_Equal  ("high_pkt_priority"  ,  var_name)) 

274  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_high_pkt_priority) ; 

275  if  (Vos_String_Equal  ("arrival_rate"  ,  var_name)) 

276  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_arrival_rate) ; 

277  it   (Vos_String_Equal  ("mean_pk_len"  ,  var.name)) 

278  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_mean_pk_len) ; 

279  if  (Vos_String_Equal  ("async_mix"  ,  var_name)) 

280  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_async_mix) ; 

281  if  (Vos_String_Equal  ("mac_iciptr"  ,  var_name)) 

282  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_mac_iciptr) ; 

283  if  (Vos_String_Equal  ("mac.iciptrl"  ,  var_name)) 

284  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_mac_iciptrl) ; 

285  if  (Vos_String_Equal  ("llc_ici_ptr"  ,  var_name)) 

286  *var_p_ptr  =  (char  *)  (4prs_ptr->sv_llc_ici_ptr) ; 

287  if  (Vos_String_Equal  ("pkptrl"  ,  var.name)) 

288  *var_p_ptr  =  (char  *)  (Jtprs_ptr->sv_pkptrl) ; 

289  FOUT; 

290  } 


291  void 

292  sp_fddi_gen_diag  () 

293  { 

294  Packet  *pkptr; 

295  int  pklen; 

296  int  dest.addr; 

297  int  i,  restricted; 

298  int        pkt.prio; 

299  FIM  (sp_fddi_gen_diag  ()) 


300  FOUT; 

301  } 


302  void 

303  sp_fddi_gen_terminate  () 

304  { 

305  Packet  *pkptr; 

306  int  pklen; 
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307  int  dest.addr; 

308  int  i,  restricted; 

309  int        pkt_prio; 

310  FII  (sp_fddi_gen_terminate  ()) 


311  FOUT; 

312  } 


313  Compcode 

314  sp_fddi_gen_init  (pr_state_pptr) 

315  sp_fddi_gen_state  **pr_state_pptr; 

316  { 

317  static  VosT_Cm_0btype  obtype  =  OPC.NIL; 

318  FIH  (sp_fddi_gen_init  (pr_state_pptr)) 

319  if  (obtype  ==  OPC.NIL) 

320  { 

321  ii  (Vos_Catmem_Register  ("proc  state  vars  (sp_fddi_gen)", 

322  sizeof  (sp_fddi_gen_state) ,  Vos.Nop,  ftobtype)  ==  VOSC.FAILURE) 

323  FRET  (0PC_C0MPC0DE_FAILURE) 

324  } 

325  if  ((*pr_state_pptr  =  (sp_fddi_gen_state*)  Vos_Catmem_Alloc  (obtype,  1))  ==  0PC.HIL) 

326  FRET  (0PC_C0MPC0DE_FAILURE) 

327  else 

328  { 

329  (*pr_state_pptr)->current_block  =  0; 

330  FRET  (0PC_C0MPC0DE_SUCCESS) 

331  } 

332  } 


333  /*  static  added  2DEC93,  on  advice  from  MIL3  */ 

334  static 

335  iddi_gen_schedule  () 

336  { 

337  double  inter_time; 

338  /*  obtain  an  interarrival  period  according  to  the  */ 

339  /*  prescribed  distribution  */ 

340  inter_time  =  op_dist_outcome  (inter_dist_ptr) ; 

341  /*  schedule  the  arrival  of  next  generated  packet  */ 

342  op_intrpt_schedule_self  (op_sim_time  ()  +  inter.tioe,  0) ; 

343  } 
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APPENDIX  E 
SPNI  MAC  "C"  CODE  EXCERPT 

"sp_fddi_mac.pr.c" 

The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre- 
spond with  that  seen  in  OPNET's  text  editors. 


1  /**  state  (FR.REPEAT)  enter  executives  **/ 

2  FSM_STATE_ENTER_FORCED  (6,  state6_enter_exec,  "FR.REPEAT") 

3  { 

4  /*  Extract  the  destination  address  of  the  frame.  */ 

5  op_pk_nfd_get  (pkptr,  "dest_addr",  ftdest.addr) ; 

6  /*  If  the  frame  is  for  this  station,  make  a  copy  */ 

7  /*  of  the  frame's  data  field  and  forward  it  to  */ 

8  /*  the  higher  layer.  */ 

9  /*  14APR94  :  In  order  to  send  the  frames  which  are  */ 

10  /*  addressed  to  the  remote  Ian,  check  the  address  database  */ 

11  /*  of  remote  Ian.  Frames  addressed  to  the  remote  Ian  shouldn't  */ 

12  /*  be  repeated  in  the  local  ring  —  This  is  a  simple  forwarding  */ 

13  /*  decision  algorithm,  one  of  the  bridge's  function  */ 

14  /*  -  Karayakaylar  */ 

15  if ((dest_addr  ==  my_address) I  I (dest_addr  <=  9)) 

16  < 

17  /*  record  total  size  of  the  frame  (including  data)  */ 

18  pk_len  =  op_pk_total_size_get  (pkptr); 

19  /*  decapsulate  the  data  contents  of  the  frame  */ 

20  /*  29JAN94:  a  new  field,  "pri",  has  been  added  to  */ 

21  /*  the  fddi_llc_fr  packet  format  in  the  Parameters  */ 

22  /*  Editor,  so  that  output  statistics  can  be  */ 

23  /*  generated  by  class  and  priority.  -Hix  */ 

24  op_pk_nfd_get  (pkptr,  "info",  ftdata.pkptr) ; 

25  op_pk_nfd_get  (pkptr,  "pri",  fcpri.level); 

26  /*  The  source  and  destination  address  are  placed  in  the  */ 

27  /*  LLC's  ICI  before  delivering  the  frame's  contents.  */ 

28  op_ici_attr_set  (to_llc_ici_ptr,  "src_addr",  src_addr) ; 
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29  op_ici_attr_set  (to_llc_ici_ptr,  "dest.addr",  dest_addr) ; 

30  op_ici_install  (to_llc_ici_ptr) ; 

31  /*  Because,  as  noted  in  the  FR.RCV  state,  only  the  */ 

32  /*  frame's  leading  edge  has  arrived  at  this  time,  the  */ 

33  /*  complete  frame  can  only  be  delivered  to  the  higher  */ 

34  /*  layer  after  the  frame's  transmission  delay  has  elapsed.  */ 

35  /*  (since  decapsulation  of  the  frame  data  contents  has  occured,  */ 

36  /*  the  original  MAC  frame  length  is  used  to  calculate  delay)  */ 

37  tx.time  =  (double)  pk.len  /  FDDI_TX_RATE; 

38  op_pk_send_delayed  (data.pkptr,  FDDI_LLC_STRM_OUT,  tx.time) ; 

39  /*  lote  that  the  standard  specifies  that  the  original  */ 

40  /*  frame  should  be  passed  along  until  the  originating  station  */ 

41  /*  receives  it,  at  which  point  it  is  stripped  from  the  ring.  */ 

42  /*  However,  in  the  simulation  model,  there  is  no  interest  */ 

43  /*  in  letting  the  frame  continue  past  its  destination  unless  */ 

44  /*  group  addresses  are  used,  so  that  the  same  frame  could  be  */ 

45  /*  destined  for  several  stations.   Here  the  frame  is  stripped  */ 

46  /*  for  efficiency  as  it  reaches  the  destination;  if  the  model  */ 

47  /*  is  modified  to  include  group  addresses,  this  should  be  changed  */ 

48  /*  so  that  the  frame  is  copied  and  the  original  repeated.  */ 

49  /*  Logic  is  already  present  for  stripping  the  frame  at  the  origin.  */ 

50  op_pk_destroy  (pkptr) ; 

51  } 

52  /*  14APR94  :  the  frames  belong  to  this  ring  should  be  repeated.  */ 

53  /*  Thus,  local  traffic  is  constrained. —  This  is  filtering  decision  */ 

54  /*  One  of  the  bridge's  function  -  Karayakaylar  */ 

55  else{ 

56  /*  Repeat  the  original  frame  on  the  ring  and  account  for  */ 

57  /*  the  latency  through  the  station  and  the  propagation  delay  */ 

58  /*  for  a  single  hop.  */ 

59  /*  (Only  the  originating  station  can  strip  the  frame).  */ 

60  op_pk_send_delayed  (pkptr,  FDDI_PHY_STRM_OUT, 

61  Fddi_St_Latency  +  Fddi_Prop_Delay) ; 

62  } 

63  } 


64  /**  state  (FR.REPEAT)  exit  executives  **/ 

65  FSM_STATE_EXIT.FORCED  (6,  state6_exit_exec,  "FR.REPEAT") 

66  { 

67  > 
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APPENDIX  F 
SPNI  SINK  "C"  CODE 

"sp_fddi_sink.pr.c" 

The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre- 
spond with  that  seen  in  OPNET's  text  editors. 


1  /*  Process  model  C  form  file:  sp_fddi_sink.pr.c  */ 

2  /*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


3  /*  OPHET  system  definitions  */ 

4  #include  <opnet.h> 

5  tinclude  "sp_fddi_sink.pr.h" 

6  FSM_EXT_DECS 


7  /*  Header  block  */ 

8  /*  Globals  */ 

9  /*  positions  0-7  represent  the  asynch  priority  levels,  PRIORITIES  +  1  */ 

10  /*  represents  synch  traffic,  and  grand  totals  are  as  given  in  the  original. 

11  #define         PRIORITIES        8  /*  20JAH94  */ 

12  #define  IMITTER.BUSY   0  /*10MAY94  */ 

13  static  /*  05FEB94  */ 

14  double         fddi2_sink_accum_delay  =  0.0; 

15  static  /*  05FEB94  */ 

16  double  fddi2_sink_accum_delay_a[PRI0RITIES  +  1]  =  {0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}; 

17  static  /*  05FEB94  */ 

18  int  fddi2_sink_total_pkts  =  0; 

19  static  /*  05FEB94  */ 

20  int  fddi2_sink_total_pkts_a [PRIORITIES  +1]   ={0,  0,  0,  0,  0,  0,  0,  0,  0}; 

21  static  /*  05FEB94  */ 

22  double         fddi2_sink_total_bits  =0.0; 

23  static  /*  05FEB94  */ 

24  double  fddi2_sink_total_bits_a[PRI0RITIES  +  1]   =  {0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}; 

25  static  /*  05FEB94  */ 

26  double         fddi2_sink_peak_delay  =  0.0; 

27  static  /*  05FEB94  */ 

28  double  fddi2_sink_peak_delay_a[PRI0RITIES  +  2]   =  {0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}; 

29  static  /*  05FEB94  */ 

30  int  fddi2_sink_scalar_write  =  0; 

31  static  /*  05FEB94  */ 

32  int  pri2_set  =20;        /♦  20JAH94  */ 
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33  double 


busy  =  0.0; 


/*  10MAY94  */ 


34  /*  Statistics  used  for  command  link:21APR94  */ 

35  static 

36  int  fddilp2_total_pkts  =  0; 

37  static 

38  int  fddilp2_total_pkts_a[PRI0RITIES  +   1]      =  {0,   0,   0,   0,    0,    0,   0,    0,   0>; 

39  static 

40  double         fddilp2_total_bits  =  0.0; 

41  static 

42  double  fddilp2_total_bits_a [PRIORITIES  +  1]   =  {0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  O.O 

43  /*  Externally  defined  globals.  */ 

44  extern  double  f ddi_t_opr  D ; 

45  /*12JAN94: attributes  from  the  Environment  file  */ 

46  double   Off ered.Load;        /*  12JAN94  */ 

47  double   Asynch.Off ered.Load;  /*  12JAN94  */ 

48  /*  transition  expressions  */ 

49  #define  END_0F_SIM   op_intrpt_type()  ==  OPC.INTRPT.EHDSIM 


50  /*  State  variable  definitions  */ 

51  typedef  struct 

52  { 

53  FSM.SYS.STATE 

54  Gs handle 

55  Gshandle 

56  Gshandle 

57  Gshandle 

58  Gshandle 

59  Gshandle 

60  Gshandle 

61  Gshandle 

62  Objid 

63  }  sp_fddi_sink_state; 


sv_thru2_gshandle ; 
sv_m2_delay .gshandle ; 
s v_ete2_delay_gshandle ; 
sv_thru2_gshandle_a[10] ; 
sv_m2_delay_gshandle_a[10] ; 
sv_ete2_delay_gshandle_a[9] ; 
s v_t2_gshandle ; 
sv_t2_gshandle_a[l0] ; 
sv_my_id; 


64  tdefine 

65  #define 

66  #def ine 

67  tfdefine 

68  #define 

69  #define 

70  #define 

71  *define 

72  #define 

73  #define 


pr_state_ptr 

thru2_gshandle 

m2_delay_gshandle 

ete2_delay .gshandle 

thru2_gshandle_a 

m2_delay_gshandle_a 

ete2_delay_gshandle_a 

t2_gshandle 

t2_gshandle_a 

my_id 


((sp_fddi_sink_state*)  SimI_Mod_State_Ptr) 

pr_state_ptr->sv_thru2_gshandle 

pr_state_ptr->sv_m2_delay_gshandle 

pr_state_ptr->sv_ete2_delay_gshandle 

pr_state_ptr->sv_thru2_gshandle_a 

pr_state_ptr->sv_m2_delay_gshandle_a 

pr_state_ptr->sv_ete2_delay_gshandle_a 

pr_state_ptr->sv_t2_gshandle 

pr_state_ptr->sv_t2_gshandle_a 

pr_state_ptr->sv_my_id 
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74  /*  Process  model  interrupt  handling  procedure  */ 


75  void 

76  sp_fddi_sink  () 

77  { 

78  double  delay,  creat_time; 

79  Packet*  pkptr; 

80  Packet*        pkptrl  ;  /+5APR94*/ 

81  int  src.addr,  my_addr; 

82  int  dest_addr;/*14APR94*/ 

83  Ici*  irom_mac_ici_ptr; 

84  double  fddi_sink_ttrt; 


85  FSM.ENTER  (sp_fddi_sink) 

86  FSM_BLOCK_SWITCH 

87  { 

88  /♦ */ 

89  /**  state  (DISCARD)  enter  executives  **/ 

90  FSM_STATE_ENTER_UNFORCED  (0,  stateO.enter.exec,  "DISCARD") 

91  { 

92  /*  determine  the  type  of  interrupt  */ 

93  switch(op_intrpt_type()) 

94  { 

95  /*  check  if  transmitter  is  busy  */ 

96  case  OPC_IHTRPT_STAT : 

97  { 

98  busy  =  op_stat_local_read  (XMITTER.BUSY) ; 

99  break; 

100  } 

101  /*  check  if  a  packet  has  arrived  */ 

102  case  OPC.INTRPT.STRM : 

103  { 

104  /*  get  the  packet  and  the  interface  control  info  */ 

105  pkptr  =  op_pk_get  (op_intrpt_strm  ()); 

106  from_mac_ici_ptr  =  op_intrpt_ici  (); 

107  /*  20JAH94:  get  the  packet's  priority  level,  which   */ 

108  /*  will  be  used  to  index  arrays  of  thruput  and  delay  */ 

109  /*  computations.  */ 

110  /*  pri2_set  =  op_pk_priority_get  (pkptr);  doesn't  work  here  */ 

111  op_pk_nfd.get  (pkptr,  "pri",  ftpri2_set);      /*  29JAN94  */ 

112  /*  determine  the  time  of  creation  of  the  packet  */ 
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113  op_pk_nfd_get  (pkptr,  "cr_time",  &creat_time) ; 

114  /*  determine  the  dest  address  of  the  packet  */  /*18APR94*/ 

115  op_pk_nfd_get  (pkptr,  "dest_addr",  ftdest.addr) ; 

116  /*  7APR94: determine  id  of  own  processor  to  use  in  finding  */ 

117  /*  station  address  of  the  bridge  node  */ 

118  my_id  =  op_id_self () ; 

119  /*  14APR94  :  also  get  my  own  address  */ 

120  op_ima_obj_attr_get  (  my_id,  "station_address",  fcmy_addr); 

121  /*  destroy  the  packet  */ 

122  /*  op_pk_destroy  (pkptr) ;  */ 

123  /*  03FEB94:  rather,  enqueue  the  packet.   This  will  be  the  */ 

124  /*  first  step  toward  developing  a  LAN  bridging  structure.  */ 

125  /*  -Mix  */ 

126  /*  op_subq_pk_ insert  (pri.set,  pkptr,  0PC_QP0S_TAIL);  */ 

127  /*  14APR94:  check  the  frame  passed  to  "lie"  is  destined  for  */ 

128  /*  this  station.  If  it  is  destroy  the  packet;  if  not,  allocate  the  packets  */ 

129  /*  to  the  command  link  transmitter  since  they  are  destined  for  the  remote  Ian  */ 

130  /*  -Karayakaylar  */ 

131  /*  determine  the  packets  coming  from  surface  stations,  this  will  */ 

132  /*  be  counted  for  local  traffic  */ 

133  /*  9(nine)  is  model  specific,  this  is  the  "station.number"  of  */ 

134  /*  collection  platform  bridge  station  */ 

135  if ((dest_addr  ==  my_addr)4&(src_addr  >  9)) 

136  { 

137  /*  add  in  its  size  */ 

138  fddi2_sink_total_bits  +=  op_pk_total_size_get  (pkptr); 

139  fddi2_sink_total_bits_a[pri2_set]  +=  op_pk_total_size_get  (pkptr);  /*  20JAH-20APR94  * 

140  /*  accumulate  delays  */ 

141  delay  =  op_sim_time  ()  -  creat_time; 

142  fddi2_sink_accum_delay  +=  delay; 

143  fddi2_sink_accum_delay_a[pri2_set]  +=  delay;   /*  20JAH-20APR94  */ 

144  /*  keep  track  of  peak  delay  value  */ 

145  if  (delay  >  fddi2_sink_peak_d«lay) 

146  fddi2_sink_peak_delay  =  delay; 

147  /*  20JAN94:  keep  track  by  priority  levels  as  well  23JAH-20APR94  */ 

148  if  (delay  >  fddi2_sink_peak_delay_a[pri2_set]) 

149  fddi2_sink_peak_delay_a[pri2_set]  =  delay; 

150  op_pk_destroy  (pkptr) ; 

151  /*  increment  packet  counter;  20JAN94  */ 

152  fddi2_sink_total_pkts++; 

153  fddi2_sink_total_pkts_a[pri2_set]++; 
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154  /*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 

155  /*  03FEB94:  [0]->[7]  represent  asynch  priorities  l->8,   */ 

156  /*  respectively;  [8]  represents  synchronous  traffic,    */ 

157  /*  and  [9]  represents  overall  asynchronous  traffic.-Hix  */ 

158  if  (fddi2_sink_total_pkts  */.  25  ==  0) 

159  { 

160  op_stat_global_write  (thru2_gshandle, 

161  fddi2_sink_total_bits  /  op_sim_time  ()); 


op_stat_global_write  (thru2_gshandle_a[pri2_set] , 

fddi2_sink_total_bits_a[0]   /  op_sim_time()! 
op_stat_global_write   (thru2_gshandle_a[0] , 

fddi2_sink_total_bits_a[l]   /  op_sim_time()] 
op_stat_global_write   (thru2_gshandle_a[l] , 

fddi2_sink_total_bits_a[pri2_set]   /  op_sim_time()) ; 
op_stat_global_write   (thru2_gshandle_a[2] , 

fddi2_sink_total_bits_a[2]   /  op_sim_time()] 
op_stat_global_write   (thru2_gshandle_a[3] , 

fddi2_sink_total_bits_a[3]   /  op_sim_time()! 
op_stat_global_write   (thru2_gshandle_a[4] , 

fddi2_sink_total_bits_a[4]    /  op_sim_time()! 
op_stat_global_write   (thru2_gshandle_a[5] , 

fddi2_sink_total_bits_a[5]   /  op_sim_time()! 
op_stat_global_write   (thru2_gshandle_a[6] , 

fddi2_sink_total_bits_a[6]   /  op_sim_time()! 
op_stat_global_write   (thru2_gshandle_a[7] , 

fddi2_sink_total_bits_a[7]   /  op_sim_time()! 
op_stat_global_write   (thru2_gshandle_a[8] , 

fddi2_sink_total_bits_a[8]   /  op_sim_time()i 


162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
/*  30JAN94:  gather  all  asynch  stats  into  one  overall  figure  */ 

183  op_stat_global_write   (thru2_gshandle_a[9] , 

184  (fddi2_sink_total_bits  -  fddi2_sink_total_bits_a[8])  / 

185  op_sim_time()) ; 


186 

/* 

187 

/* 

188 

/* 

189 

/* 

190 

/* 

(fddi2_sink_total_bits_a[0]  + 

fddi2_sink_total_bits_a[2]  + 

fddi2_sink_total_bits_a[4]  + 

fddi2_sink_total_bits_a[6]  + 
op_sim_time()) ; 


fddi2_sink_total_bits_a[l]  +  */ 
fddi2_sink_total_bits_a[3]  +  */ 
fddi2_sink_total_bits_a[5]  +  */ 
fddi2_sink_total_bits_a[7])   /     */ 

*/ 


191  op_stat_global_write   (m2_delay_gshandle , 

192  fddi2_sink_accum_delay  /  fddi2_sink_total_pkts) ; 

193  op_stat_global_write    (m2_delay_gshandle_a[0] , 

194  fddi2_sink_accum_delay_a[0]    /  fddi2_sink_total_pkts_a[0] ) ; 

195  op_stat_global_write    (m2_delay_gshandle_a[l] , 

196  fddi2_sink_accum_delay_a[l]   /  fddi2_sink_total_pkts_a[l] ) ; 
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197 

op_8tat 

198 

199 

op_stat 

200 

201 

op.stat 

202 

203 

op_stat 

204 

205 

op.stat 

206 

207 

op.stat 

208 

209 

op_stat 

210 

_global_write   (m2_delay_gshandle_a[2] , 

fddi2_sink_accum_delay_a[2]  /  fddi2_sink_total_pkts_a[2] ) 
.global_write   (m2_delay_gshandle_a[3] , 

fddi2_sink_accum_delay_a[3]  /  fddi2_sink_total_pkts_a[3] ) 
.global. write   (m2_delay_gshandle_a[4] , 

fddi2_sink_accum_delay_a[4]  /  fddi2_sink_total_pkts_a[4] ) 
.global_write   (m2_delay_gshandle_a[5] , 

fddi2_sink_accum_delay_a[5]  /  fddi2_sink_total_pkts_a[5] ) 
.global_write   (m2_delay_gshandle_a[6] , 

fddi2_sink_accum_delay_a[6]  /  fddi2_sink_total_pkts_a[6]) 
.global.write   (m2_delay_gshandle_a[7] , 

fddi2_sink_accum_delay_a[7]  /  fddi2_sink_total_pkts_a[7]) 
.global_write   (m2_delay_gshandle_a[8] , 

fddi2_sink_accum_delay_a[8]    /  fddi2_sink_total_pkts_a[8]) 


211  /*  30JAH94:   gather  all  asynch  stats  into  one  figure  */ 

212  op_stat_global_ write   (m2_delay_gshandle_a[9] , 

213  (fddi2_sink_accum_delay  -  fddi2_sink_accum_delay_a[8])   / 

214  (fddi2_sink_total_pkts  -  iddi2_sink_total_pkts_a[8] )) ; 


215 

/* 

(fddi2_sink 

216 

/* 

iddi2_sink 

217 

/* 

lddi2_sink 

218 

/* 

iddi2_sink 

219 

/* 

(lddi2_sink 

220 

/* 

Iddi2_sink 

221 

/* 

fddi2_sink 

222 

/* 

lddi2_sink 

.accum_delay_a[0]    +  iddi2_sink_accum_delay_a[l]   +  */ 

.accum_delay_a[2]    +  lddi2_sink_accum_delay_a[3]   +  */ 

accum_delay_a[4]    +  lddi2_sink_accum_delay_a[5]   +  */ 

.accum_delay_a[6]    +  lddi2_sink_acciun_delay_a[7])  /  */ 

.total_pkts_a[0]    +  lddi2_sink_total_pkts_a[l]    +  */ 

.total_pkts_a[2]    +  fddi2_sink_total_pkts_a[3]    +  */ 

.total_pkts_a[4]    +  fddi2_sink_total_pkts_a[5]    +  */ 

.total_pkts_a[6]    +  fddi2_sink_total_pkts_a[7])) ;  */ 


223  /*  also  record  actual  delay  values  */ 

224  op_stat_global_write   (ete2_delay_gshandle,  delay); 

225  op_stat_global_write   (ete2_delay_gshandle_a[pri2_set] ,   delay); 

226  } 

227  }/*end  ot   if (dest_addr==my_addr)4ft(src_addr  >  9) statement  */ 

228  /*  20APR94:  destroy  the  packets  coming  xrom  the  first  Ian  destined  */ 

229  /*  for  this  station. These  packets  are  not  counted  for  local  traffic.*/ 

230  else  if (dest_addr  ==  my_addr) 

231  op_pk_destroy(pkptr) ; 


232  /*  Other  frames  passed  to  "lie"  should  be  destined  for  other  Ian  */ 

233  /*  18APR94  : allocate  the  packets  to  transmitter  of  command  link  */ 

234  else 

235  { 

236  /*  add  in  its  size  */ 

237  fddilp2_total_bits  +=  op_pk_total_size_get  (pkptr) ; 

238  fddilp2_total_bits_a[pri2_set]  +=  op_pk_total_size_get  (pkptr);  /*  20JAN-20APR94  */ 
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239  /*  increment  packet  counter;  20APR94  */ 

240  fddilp2_total_pkts++; 

241  f ddilp2_total_pkt s_a [pri2_set] ++ ; 

242  /*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 

243  /*  [0]->[7]  represent  asynch  priorities  l->8,  */ 

244  /*  respectively;  [8]  represents  synchronous  traffic,    */ 

245  /*  and  [9]  represents  overall  asynchronous  traffic.-Iix  */ 

246  if  (fddilp2_total_pkts  */,  25  ==  0) 

247  { 

248  op_stat_global_write   (t2_gshandle, 

249  fddilp2_total_bits  /  op_sim_time   ()); 


250  op_stat_global_write   (t2_gshandle_a[pri2_set] , 

251  fddilp2_total_bits_a[0]   /  op_sim_time()) ; 

252  op_stat_global_write    (t2_gshandle_a[0] , 

253  fddilp2_total_bits_a[l]    /  op_sim_time()) ; 

254  op.stat .global. write   (t2_gshandle_a[l] , 

255  fddilp2_total_bits_a[pri2_set]   /  op_sim_time()) ; 

256  op_stat_global_write   (t2_gshandle_a[2] , 

257  fddilp2_total_bits_a[2]    /  op_sim_time()) 

258  op_stat_global_write   (t2_gshandle_a[3] , 

259  fddilp2_total_bits_a[3]   /  op_sim_time()) 

260  op_stat_global_ write   (t2_gshandle_a[4] , 

261  fddilp2_total_bits_a[4]    /  op_sim_time()) 

262  op_stat_global_write   (t2_gshandle_a[5] , 

263  fddilp2_total_bits_a[5]    /  op_sim_time()) 

264  op_stat_global_write   (t2_gshandle_a[6] , 

265  fddilp2_total_bits_a[6]   /  op_sim_time()) 

266  op_stat_global_write   (t2_gshandle_a[7] , 

267  fddilp2_total_bits_a[7]   /  op_sim_time()) 

268  op_stat_global_write   (t2_gshandle_a[8] , 

269  fddilp2_total_bits_a[8]    /  op_sim_tim«()) 


270  /*  gather  all  asynch  stats   into  one  overall  figure  */ 

271  op_stat_global_write    (t2_gshandle_a[9] , 

272  (fddilp2_total_bits  -  fddilp2_total_bits_a[8] )   / 

273  op_s  im_t  ime ( ) ) ; 


274 

275 

/* 

276 

/* 

277 

/* 

278 

/* 

/*  (fddilp2_total_bits_a[0]   +  fddilp2_total_bits_a[l]    + 

fddilp2_total_bits_a[2]  +  fddilp2_total_bits_a[3]  +  */ 
fddilp2_total_bits_a[4]  +  fddilp2_total_bits_a[5]  +  */ 
fddilp2_total_bits_a[6]  +  fddilp2_total_bits_a[7])  /  */ 
op_sim_time()) ;  */ 


279  } 

280  /*  21APR94: allocate  packets  to  the  command  link  transmitter  */ 
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281  op_subq_pk_insert(0,  pkptr,  OPC_QPOS_TAIL) ; 

282  /*  check  if  this  subqueue  is  empty  and  transmitter  is  not  busy  */ 

283  if  ((lop.subq. empty (0))*ft(busy  ==  0.0)) 

284  { 

285  /*access  the  first  packet  in  the  subqueue  */ 

286  pkptrl  =  op_subq_pk_remove  (0,  0PC_QP0S_HEAD) ; 

287  /*  forward  it  to  the.  transmitter  of  command  link  */ 

288  op_pk_send  (pkptrl,  0); 

289  } 

290  }/*  end  of  else  */ 

291  break; 

292  }/*  end  of  case  0PC_INTRPT_STRH  statement  */ 

293  }/*  end  of  switch  */ 

294  } 


295  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

296  FSM.EXIT  (1 ,sp_fddi_sink) 


297  /**  state  (DISCARD)  exit  executives  **/ 

298  FSM_STATE_EXIT_UNF0RCED  (0,  stateO_exit_exec,  "DISCARD") 

299  { 

300  } 

301  /**  state  (DISCARD)  transition  processing  **/ 

302  FSM.IHIT.C0ND  (END_0F_SIM) 

303  FSM.DFLT.C0ND 

304  FSM.TEST.L0GIC  ("DISCARD") 

305  FSM_TRANSIT_SWITCH 

306  { 

307  FSM.CASE.TRANSIT  (0,  1,  statel.enter.exec,  ;) 

308  FSM.CASE.TRANSIT  (1,  0,  stateO.enter.exec,  ;) 

309  } 

310  /* */ 


311  /**  state  (STATS)  enter  executives  **/ 

312  FSM.STATE.ENTER.UNFORCED  (1,  statel.enter.exec,  "STATS") 

313  { 

314  /*  At  end  of  simulation,  scalar  performance  statistics  */ 

315  /*  and  input  parameters  are  written  out.  */ 

316  /*  This  is  for  command  link  throughput  :21APR94*/ 

317  op_8tat_scalar_write  ("CL  Throughput  (bps),  Priority  1", 

318  fddilp2_total_bits_a[0]  /  op.sim.time  ()); 
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319  op_stat_scalar_write  ("CL  Throughput  (bps) ,  Priority  2", 

320  fddilp2_total_bits_a[l]  /  op_sim_time  ()); 

321  op_stat_scalar_write  ("CL  Throughput  (bps),  Priority  3", 

322  iddilp2_total_bits_a[2]   /  op_sim_time   ()); 

323  op_stat_scalar_write  ("CL  Throughput  (bps),  Priority  4", 

324  iddilp2_total_bits_a[3]   /  op_sim_time   ()); 

325  op_stat_scalar_write  ("CL  Throughput  (bps),  Priority  5", 

326  fddilp2_total_bits_a[4]  /  op_sim_time  ()); 

327  op_stat_scalar_write  ("CL  Throughput  (bps),  Priority  6", 

328  fddilp2_total_bits_a[5]  /  op_sim_time  ()); 

329  op_stat_scalar_write  ("CL  Throughput  (bps),  Priority  7", 

330  fddilp2_total_bits_a[6]  /  op_sim_time  ()); 

331  op_stat_scalar_write  ("CL  Throughput  (bps),  Priority  8", 

332  lddilp2_total_bits_a[7]  /  op_sim_time  ()); 

333  op_stat_scalar_write  ("CL  Throughput  (bps),  Asynchronous", 

334  (iddilp2_total_bits  -  fddilp2_total_bits_a[8])  /  op_sim_time  ()); 


335  /*  (lddilp2_total_bits_a[0]  +  iddilp2_total_bits_a[l]  +  */ 

336  /*  iddilp2_total_bits_a[2]  +  iddilp2_total_bits_a[3]  +  */ 

337  /*  iddilp2_total_bits_a[4]  +  iddilp2_total_bits_a[5]  +  */ 

338  /*  iddilp2_total_bits_a[6]  +  iddilp2_total_bits_a[7])  /  */ 

339  /*  op_sim_time  ());                                      */ 


340  op_stat_scalar_write  ("CL  Throughput  (bps),  Synchronous", 

341  lddilp2_total_bits_a[8]  /  op_sim_time  ()); 

342  op_stat_scalar_write  ("CL  Throughput  (bps),  Total", 

343  lddilp2_total_bits  /  op_sim_time  ()); 


344  /*  Only  one  station  needs  to  do  this  for  the  second  ring(Ring  1)*/ 

345  it   (!fddi2_sink_scalar .write) 

346  { 

347  /*  set  the  scalar  write  Hag  */ 

348  iddi2_sink_scalar .write  =   1; 

349  op_stat_scalar_write    ("Mean  End-to-End  Delay-1    (sec),    Priority   1", 

350  lddi2_sink_accum_delay_a[0]   /  iddi2_sink_total_pkts_a[0] ) ; 
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op_stat_scalar_ write   ("Mean  End-to-End  Delay-l(sec. ) ,   Priority  2", 
fddi2_sink_accum_delay_a[l]   /  iddi2_sink_total_pkts_a[l] ) ; 

op_stat_scalar_write   ("Mean  End-to-End  Delay-1    (sec),   Priority  3", 
iddi2_sink_accum_delay_a[2]   /  lddi2_sink_total_pkts_a[2] ) ; 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-1    (sec),    Priority  4", 
fddi2_sink_accum_delay_a[3]   /  iddi2_sink_total_pkts_a[3] ) ; 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-1    (sec),   Priority  5", 
fddi2_sink_accum_delay_a[4]   /  iddi2_sink_total_pkts_a[4] ) ; 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-1   (sec).   Priority  6", 
iddi2_sink_accum_delay_a[5]   /  iddi2_sink_total_pkts_a[5] ) ; 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-1   (sec).   Priority  7", 
fddi2_sink_accum_delay_a[6]   /  fddi2_sink_total_pkts_a[6] ) ; 

op_stat_scalar_ write   ("Mean  End-to-End  Delay-1    (sec).   Priority  8", 
fddi2_sink_accum_delay_a[7]    /  iddi2_sink_total_pkts_a[7] ) ; 

op_stat_scalar_write   ("Mean  End-to-End  Delay-1    (sec),   Asynchronous", 
(fddi2_sink_accum_delay  -  iddi2_sink_accum_delay_a[8] )   / 
(lddi2_sink_total_pkts  -  fddi2_sink_total_pkts_a[8])) ; 

(iddi2_sink_accum_delay_a[0]    +  iddi2_sink_accum_delay_a[l]   +  */ 

iddi2_sink_accum_delay_a[2]    +  iddi2_sink_accum_delay_a[3]    +  */ 

iddi2_sink_accum_delay_a[4]    +  fddi2_sink_accum_delay_a[5]   +  */ 

iddi2_sink_accum_delay_a[6]    +  iddi2_sink_accum_delay_a[7] )   /  */ 

(lddi2_sink_total_pkts_a[0]    +  iddi2_sink_total_pkts_a[l]    +  */ 

lddi2_sink_total_pkts_a[2]    +  iddi2_sink_total_pkts_a[3]    +  */ 

iddi2_sink_total_pkts_a[4]    +  iddi2_sink_total_pkts_a[5]    +  */ 

iddi2_sink_total_pkts_a[6]    +  iddi2_sink_total_pkts_a[7] )) ;  */ 


376  op_stat_scalar_ write   ("Mean  End-to-End  Delay-1    (sec),   Synchronous", 

377  lddi2_sink_accum_delay_a[8]    /  iddi2_sink_total_pkts_a[8] ) ; 

378  op_stat_scalar_write   ("Mean  End-to-End  Delay-1    (sec),   Total", 

379  lddi2_sink_accum_delay  /  fddi2_sink_total_pkts) ; 

380  op_stat_scalar_write   ( "Throughput- 1    (bps),   Priority  1", 

381  iddi2_sink_total_bits_a[0]   /  op_sio_time   ()); 

382  op_stat_scalar_ write   ("Throughput-1   (bps),   Priority  2", 

383  fddi2_sink_total_bits_a[l]   /  op_sim_time   ()); 

384  op_stat_scalar_write   ("Throughput-1    (bps),   Priority  3", 

385  fddi2_sink_total_bits_a[2]    /  op_sim_time   ()); 

386  op_stat_scalar_write    ("Throughput-1 (   bps),   Priority  4", 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

/* 

369 

/* 

370 

/* 

371 

/* 

372 

/* 

373 

/* 

374 

/* 

375 

/* 

387  iddi2_sink_total_bits_a[3]   /  op_sim_time  ()); 

388  op_stat_scalar_ write   ("Throughput-1    (bps) ,   Priority  5", 

389  fddi2_sink_total_bits_a[4]   /  op_sim_time  ()); 

390  op_stat_scalar_write   ("Throughput-1   (bps),   Priority  6", 

391  iddi2_sink_total_bits_a[5]   /  op_sim_time  ()); 

392  op_stat_scalar_write   ("Throughput-1   (bps),   Priority  7", 

393  iddi2_sink_total_bits_a[6]   /  op_sim_time  ()); 

394  op_stat_scalar_write   ("Throughput-1   (bps),   Priority  8", 

395  fddi2_sink_total_bits_a[7]   /  op_sim_time   ()); 

396  op_stat_scalar_write   ("Throughput-1   (bps),   Asynchronous", 

397  (iddi2_sink_total_bits  -  iddi2_sink_total_bits_a[8])  /  op_sim_time   ()); 


398  /*  (fddi2_sink_total_bits_a[0]  +  fddi2_sink_total_bits_a[l]    +       */ 

399  /*  fddi2_sink_total_bits_a[2]  +  iddi2_sink_total_bits_a[3]    +       */ 

400  /*  fddi2_sink_total_bits_a[4]  +  iddi2_sink_total_bits_a[5]    +       */ 

401  /*  iddi2_sink_total_bits_a[6]  +  iddi2_sink_total_bits_a[7])   /     */ 

402  /*  op_sim_time   ());                                                                                         */ 


403  op_stat_scalar_ write   ("Throughput-1    (bps),   Synchronous", 

404  iddi2_sink_total_bits_a[8]   /  op_sim_time   ()); 

405  op_stat_scalar_ write   ("Throughput-1   (bps),  Total", 

406  iddi2_sink_total_bits  /  op_sim_time   ()); 


407  op_stat_scalar_write   ("Peak  End-to-End  Delay-1   (sec),   Priority   1", 

408  fddi2_sink_peak_delay_a[0]); 

409  op_stat_scalar_ write  ("Peak  End-to-End  Delay-1  (sec),  Priority  2", 

410  lddi2_sink_peak_delay_a[l] ) ; 

411  op_stat_scalar_ write  ("Peak  End-to-End  Delay-1  (sec),  Priority  3", 

412  fddi2_sink_peak_delay_a[2] ) ; 

413  op_stat_scalar_write  ("Peak  End-to-End  Delay-1  (sec),  Priority  4", 

414  Iddi2_sink_peak_delay_a[3] ) ; 

415  op_stat_scalar_ write  ("Peak  End-to-End  Delay-1  (sec).  Priority  5", 

416  iddi2_sink_peak_delay_a[4]) ; 

417  op_stat_scalar_ write    ("Peak  End-to-End  Delay-1    (sec),    Priority  6", 

418  Iddi2_sink_peak_delay_a[5]); 
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419  op_stat_scalar_write  ("Peak  End— to-End  Delay-1  (sec).  Priority  7", 

420  f ddi2_s  ink_peak_delay_a [6] ) ; 

421  op_8tat_scalar_ write  ("Peak  End-to-End  Delay-1  (sec),  Priority  8", 

422  f ddi2_s  ink_peak_delay_a [7] ) ; 

423  op_stat_scalar_write  ("Peak  End-to-End  Delay-1  (sec),  Synchronous", 

424  f ddi2_sink_peak_delay_a[8] ) ; 

425  op_stat_scalar_write  ("Peak  End-to-End  Delay-1  (sec),  Overall", 

426  fddi2_sink_peak_delay); 


427  /*  Write  the  TTRT  value  lor  ring  0.   This  preserves  */ 

428  /*  the  old  behavior  for  single-ring  simulations.  */ 

429  op_stat_scalar_write  ("TTRT  (sec)  -  Ring  1", 

430  fddi_t_opr  [l]); 

431  /*  12JAN94:  obtain  offered  load  information  from  the  Environment  */ 

432  /*  file;  this  will  be  used  to  provide  abscissa  information  that  */ 

433  /*  can  be  plotted  in  the  Analysis  Editor  (see  "fddi.sink"  STATS  */ 

434  /*  state.  To  the  user:  it's  your  job  to  keep  these  current  in    */ 

435  /*  the  Environment  File.  -Hix  */ 

436  op_ima_sim_attr_get  (0PC_IMA_D0UBLE,  "total.off ered_load_l",  ftOf f ered.Load) ; 

437  op_ima_sim_attr_get  (0PC_IMA_D0UBLE,  "asynch_off ered_load_l",  ftAsynch.Off ered.Load); 


438  /*  12JAN94:  write  the  total  offered  load  for  this  run  */ 

439  op_stat_scalar_ write  ("Total  Offered  Load-1  (Hbps)", 

440  Of f ered.Load) ; 

441  op_stat_scalar_ write  ("Asynchronous  Offered  Load-1  (Mbps)", 

442  Asynch_0ff ered.Load) ; 

443  } 

444  } 


445  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

446  FSM.EXIT  (3,sp_fddi_sink) 


447  /**  state  (STATS)  exit  executives  **/ 

448  FSM_STATE_EXIT_UNFORCED  (1,  statel.exit.exec.  "STATS") 

449  { 

450  } 


451  /**  state  (STATS)  transition  processing  **/ 

452  FSM.TRANSIT.MISSING  ("STATS") 

453  /* */ 
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454  /**  state  (INIT)  enter  executives  **/ 

455  FSM.STATE_ENTER_FORCED  (2,  state2_enter_exec,  "INIT") 

456  { 

457  /*  get  the  gshandles  of  the  global  statistic  to  be  obtained  */ 

458  /*  20JAH94:  set  array  format  */ 


459  thru2 

460  thru2 

461  thru2 

462  thru2 

463  thru2 

464  thru2 

465  thru2 

466  thru2. 

467  thru2. 

468  thru2. 

469  thru2, 


.gshandle_a[0] 
.gshandle_a[l] 
.gshandle_a[2] 
.gshandle_a[3] 
.gshandle_a[4] 
.gshandle_a[5] 
.gshandle_a[6] 
.gshandle_a[7] 
.gshandle_a[8] 
.gshandle_a[9] 
.gshandle 


op.stat. 
op_stat. 
op.stat. 
op.stat. 
op.stat. 
op_stat. 
op_stat. 
op_stat. 
op_stat. 
op_stat. 
op_stat. 


global_reg 
,global_reg 
,global_reg 
.global.reg 
global.reg 
.global.reg 
,global_reg 
,global_reg 
global_reg 
global_reg 
,global_reg 


"pri 

"pri 

"pri 

"pri 

"pri 

"pri  6 

"pri  7 

"pri  8 

"synch 

"async 

"total 


throughput- 
throughput  - 
throughput - 
throughput - 
throughput- 
throughput- 
throughput- 
throughput- 
throughput- 
throughput - 
throughput- 


(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 
(bps)" 


470  m2_delay_gshandle_a[0]  =  op_stat_global_reg 

471  m2_delay_gshandle_a[l]  =  op_stat_global_reg 

472  m2_delay_gshandle_a[2]  =  op_stat_global_reg 

473  m2_delay_gshandle_a[3]  =  op_stat_global_reg 

474  m2_delay_gshandle_a[4]  =  op_stat_global_reg 

475  m2_delay_gshandle_a[5]  =  op_stat_global_reg 

476  m2_delay_gshandle_a[6]  =  op_stat_global_reg 

477  m2_delay_gshandle_a[7]  =  op_stat_global_reg 

478  m2_delay_gshandle_a[8]  =  op_stat_global_reg 

479  m2_delay_gshandle_a[9]  =  op_stat_global_reg 

480  m2_delay_gshandle  =  op_stat_global_reg 

481  ete2_delay_gshandle_a[0]  =  op_stat_global_reg 

482  ete2_delay_gshandle_a[l]  =  op_stat_global_reg 

483  ete2_delay_gshandle_a[2]  =  op_stat_global_reg 

484  ete2_delay_gshandle_a[3]  =  op_stat_global_reg 

485  ete2_delay_gshandle_a[4]  =  op_stat_global_reg 

486  ete2_delay_gshandle_a[5]  =  op_stat_global_reg 

487  ete2_delay_gshandle_a[6]  =  op_stat_global_reg 

488  ete2_delay_gshandle_a[7]  =  op_stat_global_reg 

489  ete2_delay_gshandle_a[8]  =  op_stat_global_reg 

490  ete2_delay_gshandle  =  op_stat_global„reg 

491  t2_gshandle_a[0]  =  op_stat_global_reg  ("pri   1 

492  t2_gshandle_a[l]  =  op_stat_global_reg  ("pri  2 

493  t2_gshandle_a[2]  =  op_stat_global_reg  ("pri  3 

494  t2_gshandle_a[3]  =  op_stat_global_reg  ("pri  4 

495  t2_gshandle_a[4]  =  op_stat_global_reg  ("pri  5 

496  t2_gshandle_a[5]  =  op_stat_global_reg   ("pri  6 

497  t2_gshandle_a[6]  =  op_stat_global_reg   ("pri  7 

498  t2_gshandle_a[7]  =  op_stat_global_reg   ("pri  8 


"pri  1 
"pri  2 
"pri  3 
"pri  4 
"pri  5 
"pri  6 
"pri  7 
"pri  8 
"synch 
"async 
"total 


mean 
mean 
mean 
mean 
mean 
mean 
mean 
mean 
mean 
mean 
mean 


delay 
delay- 
delay- 
delay- 
delay- 
delay- 
delay- 
delay- 
delay- 
delay- 
delay- 


(sec.) 
(sec.) 
(sec.) 
(sec.) 
(sec. ) 
(sec. ) 
(sec. ) 
(sec. ) 
(sec. ) 
(sec.) 
(sec. ) 


("pri  1 
("pri  2 
("pri  3 
("pri  4 
("pri  5 
("pri  6 
("pri  7 
("pri  8 
("synch 
("total 


end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 
end-to- 


end  delay- 
end  delay- 
end  delay- 
end  delay- 
end  delay- 
end  delay- 
end  delay- 
end  delay- 
end  delay- 
end  delay- 


1  (sec.)' 
1  (sec.)1 
1  (sec.)1 
(sec.)' 
(sec.)' 
(sec. )' 
(sec. )' 
(sec. )' 
(sec. )' 
(sec. )' 


CL  throughput  (bps) 

CL  throughput  (bps) 

CL  throughput  (bps) 

CL  throughput  (bps) 

CL  throughput  (bps) 

CL  throughput  (bps) 

CL  throughput  (bps) 

CL  throughput  (bps) 
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499  t2_gshandle_a[8] 

500  t2_gshandle_a[9] 

501  t2_gshandle 


op_stat_global_reg  ("synch  CL  throughput  (bps)") 
op_stat_global_reg  ("async  CL  throughput  (bps)") 
op_stat_global_reg  ("total  CL  throughput  (bps)") 


502  } 


503  /**  state  (INIT)  exit  executives  **/ 

504  FSM_STATE_EXIT_FORCED  (2,  state2_exit_exec, 

505  { 

506  } 


•INIT") 


507  /**  state  (INIT)  transition  processing  **/ 

508  FSM_INIT_C0ND  (END_0F_SIM) 

509  FSM_DFLT_COND 

510  FSM_TEST.LOG IC  ("INIT") 


511  FSM.TRANSIT.SVITCH 

512  { 

513  FSM_CASE_TRANSIT  (0,  1,  statel_enter_exec,  ;) 

514  FSM.CASE.TRANSIT  (1,  0,  stateO.enter.exec,  ;) 

515  } 

516  /* 


■*/ 


517  } 


518  FSM.EXIT  (2,sp_fddi_sink) 
619  } 


520  void 

521  sp_fddi_sink_svar  (prs_ptr,var_name,var_p_ptr) 

522  sp_fddi_sink_state  *prs_ptr; 

523  char  *var_name,  **var_p_ptr; 

524  { 

525  FIN  (sp_lddi_sink_svar  (prs_ptr)) 

526  *var_p_ptr  =  VOS.NIL; 

527  it   (Vos_String_Equal  ("thru2_gshandle"  ,  var_naae)) 

528  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_thru2_gshandle) ; 

529  it   (Vos_String_Equal  ("m2_delay_gshandle"  ,  var.naoe)) 

530  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_m2_delay_gshandle) ; 

531  if  (Vos_String_Equal  ("ete2_delay_gshandle"  ,  var_name)) 
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532  *var_p_ptr  =  (char  *)  (&prs_ptr->sv_ete2_delay_gshandle) ; 

533  if  (Vos_String_Equal  ("thru2_gshandle_a"  ,  var_name)) 

534  *var_p_ptr  =  (char  *)  (prs_ptr->sv_thru2_gshandle_a); 

535  if  (Vos_String_Equal  ("m2_delay_gshandle_a"  ,  var_name)) 

536  *var_p_ptr  =  (char  *)  (prs_ptr->sv_m2_delay_gshandle_a) ; 

537  if  (Vos_String_Equal  ("ete2_delay_gshandle_a"  ,  var.name)) 

538  *var_p_ptr  =  (char  *)  (prs_ptr- >sv_ete2_delay_gshandle_a); 

539  if  (Vos_String_Equal  ("t2_gshandle"  ,  var_name)) 

540  *var_p_ptr  =  (char  *)  (fcprs_ptr->sv_t2_gshandle) ; 

541  if  (Vos_String_Equal  ("t2_gshandle_a"  ,  var_name)) 

542  *var_p_ptr  =  (char  *)  (prs_ptr->sv_t2_gshandle_a) ; 

543  if  (Vos_String_Equal  ("my_id"  ,  var.name)) 

544  *var_p_ptr  =  (char  *)  (ftprs_ptr->sv_my_id) ; 

545  FOUT; 

546  > 


547  void 

548  sp_fddi_sink_diag  () 

549  { 

550  double  delay,  creat.time; 

551  Packet*  pkptr; 

552  Packet*         pkptrl  ;  /*5APR94*/ 

553  int  src_addr,  my_addr; 

554  int  dest_addr;/*14APR94*/ 

555  Ici*  from_mac_ici_ptr; 

556  double  fddi_sink_ttrt; 


557  FIH  (sp_fddi_sink_diag  ()) 


558  FOUT; 

559  } 


560  void 

561  8p_fddi_sink_terminate  () 

562  { 

563  double  delay,  creat_time; 

564  Packet*  pkptr; 

565  Packet*         pkptrl  ;  /*5APR94*/ 

566  int  src.addr,  my.addr; 

567  int  dest_addr;/*14APR94*/ 

568  Ici*  from_nac_ici_ptr; 

569  double  fddi_sink_ttrt ; 
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570  FIN  (sp_lddi_sink_terminate  ()) 


571  FOUT; 

572  } 


573  Compcode 

574  sp_lddi_sink_init  (pr_state_pptr) 

575  sp_lddi_sink_state  **pr_state_pptr; 

576  { 

577  static  VosT_Cm_Obtype  obtype  =  OPC.NIL; 

578  FIN  (sp_lddi_sink_init  (pr_state_pptr)) 

579  il  (obtype  ==  OPC.NIL) 

580  { 

581  il  (Vos_Catmem_Register  ("proc  state  vars  (sp_lddi_sink)M, 

582  sizeof  (sp_lddi_sink_state) ,  Vos_Nop,  tobtype)  ==  VOSC.FAILURE) 

583  FRET  (0PC_C0MPC0DE_FAILURE) 

584  } 

585  il  ((*pr_state_pptr  =  (sp_iddi_sink_state*)  Vos_Catmem_Alloc  (obtype,  1))  ==  OPC.NIL) 

586  FRET  (0PC_C0MPC0DE_FAILURE) 

587  else 

588  { 

589  (*pr_state_pptr)->current .block  =  4; 

590  FRET  (0PC_C0MPC0DE_SUCCESS) 

591  } 

592  } 
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APPENDIX  G 
CDL  MODEL  ERROR  ALLOCATION  CODE 

"cdl_pt_error.ps.c" 

The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre- 
spond with  that  seen  in  OPNET's  text  editors. 

1  /*  cdl_pt_error.ps. c  */ 

2  /*  Customized  error  allocation  model  lor  point-to-point  link  transceiver  pipeline  */ 

3  /*******************************+*******************************/ 

4  /*       Last  modified  by  Selcuk  Karayakaylar  */ 

5  /*  22APR94  */ 

6  /***************************************************************/ 

7  # include  <opnet.h> 

8  # include  <math.h> 


9  /*  Define  a  convenient  macro  for  computing   */ 

10  /*  factorials  using  the  gamma  function  */ 

11  #define  log_factorial(n)  lgamraa  ((double)  n  +  1.0) 

12  void 

13  cdl_pt_error  (pkptr) 

14  Packet*  pkptr; 

15  { 

16  Objid         link.objid; 

17  double        pe,  r,  p_accum,  p.exact; 

18  double        log_pl,  log_p2,  log_arrange; 

19  double  duty.cycle;  /*  31MAR94  */ 

20  double  jam_length,  jam_ber,int_bet_jamlen,  ber_bet_jamlen;/*29MAR94*/ 

21  double  time.stamp;  /*  time  stamp  for  the  packet  arriving  time  */ 

22  double        offset;  /*  1APR94  */ 

23  int  invert.errors  =  0PC_FALSE,  seg_size,  num_errs; 

24  int  jammer_type;/*26APR94*/ 

25  /*int  channel.index;*/  /*  4APR94  */ 

26  /**  Compute  the  number  of  errors  assigned  to  the  given  packet    **/ 

27  /**  based  on  its  length  and  the  bit  error  probability.  **/ 

28  FIM  (cdl_pt .error  (pkptr)) 

29  /*Make  a  time  stamp  to  see  whether  the  packet  is  in  jamming  period  or  not  */ 

30  time.stamp  =  op_sim_time() ; 

31  /*printf ("time.stamp  =  '/.16. 12f\n"  ,  time.stamp);*/ 

32  /*  Obtain  object  id  of  point-to-point  link  carrying  transmission.  */ 

33  link.objid  =  op.td_get.int  (pkptr,  OPC.TDA.PT.LINK.OBJID) ; 
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34 
35 
36 

37 
38 

39 
40 
41 

42 
43 
44 
45 
46 
47 

48 
49 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 

64 
65 

66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 


/*  Obtain  the  channel  index  lor  the  particular  link  */ 

/*  Determine  which  channel  the  packet  is  on  *//*30MAR*/ 

/*  channel.index  =  op_td_get_int  (pkptr,OPC_TDA_PT_CH_IHDEX) ;*//*4APR94*/ 

/*  Obtain  the  bit-error  probability  of  the  channel.  */ 

/*  op_ima_obj_attr_get  (link_objid,  "ber",  ftpe) ;  *//*ignore  this  attribute  31MAR94' 

/*  Obtain  the  extended  attributes  lor  the  point-to-point  link  */ 

/*  These  attributes  are  appended  in  order  to  simulate  jamming  features  */ 

/*  29MAR94  */ 

op_ima_obj_attr_get  (link_objid,  "jam.length",   Jtjam.length) ; 

op_ima_obj_attr_get  (link_objid,  "jam_ber",  *jam_ber); 

op_ima_obj_attr_get  (link.objid,  "interval_bet_jam_len",   ftint_bet_jamlen) ; 

op_ima_obj_attr_get  (link.objid,  "ber_bet_jam_len",   Jtber_bet_jamlen); 

op_ima_obj_attr_get  (link_objid,  "init_jam_offset",   toff set); 

op_ima_obj_attr_get  (link_objid,  "jammer.type",   ftjammer.type) ; 

/*  Obtain  the  length  of  the  packet.   */ 
seg.size  =  op_pk_total_size_get   (pkptr); 

/*  Determine  the  jammer  type  in  use:26APR94  */ 
/*  Check  if  pulsed  jammer  is  in  use  */ 
if    (jammer.type  ==  0) 

{ 

/*  Randomize  the  jamming  durations  */ 

/*  These  durations  are  randomized  with  uniform  distribution  */ 

/*  in  range  [0,  duration[.  User  should  be  aware  of  these  */ 

/*  attributes  specified  in  the  environment  file.  They  are  max  values  */ 

/*  for  those  particular  durations  */ 

jam_length  =  op_dist_uniform(jam_length) ; 

int_bet_jamlen  =  op_dist_uniform(int_bet_jamlen) ; 

} 
/*  Otherwise,  channel  swept  jammer  is  in  use.  Jamming  durations  */ 
/*  should  not  be  randomized  to  keep  consecutive  pulses  in  order.  */ 

/*  Compute  duty  cycle  for  jammming  */ 
duty_cycle  =  jam_length  +  int_bet_jamlen; 

/*  Check  time  stamp  if  it  is  in  the  initial  jam  offset  period  */ 

/*  All  BER's  are  uniformly  distributed  in  range  [0,  ber[,  so  that  */ 

/*  realistic  representation  is  provided;  User  should  be  aware  of  */ 

/*  these  attributes  specified  in  the  environment  file.  They  are  max  values  */ 

/*  for  those  particular  bers*/ 

if  (time_stamp  <  offset) 

pe  =  op_dist_unif orm(ber_bet_jamlen) ;  /*  the  packet  is  still  not  in  the  jamming 

/*  period  */ 


else 


/*  Check  packet  is  in  jamming  period  */ 
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77  if  (  fmod(time_stamp,duty_cycle)  <=  jam.length  ) 

78  pe  =  op_dist_uniform(jam_ber);  /*  the  packet  is  in  jamming  period,  */ 

79  /*  random  "pe"  to  be  computed  as  jam_ber  */ 

80  else 

81  pe  =  op_dist_uniform(ber_bet_jamlen);  /*  packet  is  in  unjammed  period  */ 

82  /*   random  "pe"  to  be  computed  as  ber_bet_jamlen  */ 

83  } 

84  /*This  part  computes  num.errs  for  the  packet  */ 

85  /*  Case  1:  if  the  bit  error  rate  is  zero,  so  is  the  number  of  errors.  */ 

86  if  (pe  ==0.0  II  seg.size  ==  0) 

87  num_errs  =  0; 

88  /*  Case  2:  if  the  bit  error  rate  is  1.0,  then  all  the  bits  are  in  error.*/ 

89  /*  (note  however,  that  bit  error  rates  should  not  normally  exceed  0.5).*/ 

90  else  if  (pe  >=  1.0) 

91  num_errs  =  seg_size; 

92  /*  Case  3:  The  bit  error  rate  is  not  zero  or  one.  */ 

93  else 

94  { 

95  /*  If  the  bit  error  rate  is  greater  than  0.5  and  less  than  1.0,  invert         */ 

96  /*  the  problem  to  find  instead  the  number  of  bits  that  are  not  in  error    */ 

97  /*  in  order  to  accelerate  the  performance  of  the  algorithm.   Set  a  flag    */ 

98  /*  to  indicate  that  the  result  will  then  have  to  be  inverted.  */ 

99  if  (pe  >  0.5) 

100  { 

101  pe  =  1.0  -  pe; 

102  invert.errors  =  0PC.TRUE; 

103  } 

104  /*  The  error  count  can  be  obtained  by  mapping  a  uniform  random  number  */ 

105  /*  in  [0,  l[  via  the  inverse  of  the  cumulative  mass  function  (CNF)  */ 

106  /*  for  the  bit  error  count  distribution.  * 

107  /*  Obtain  a  uniform  random  number  in  [0,  1[  to  represent  */ 

108  /*  the  value  of  the  CDF  at  the  outcome  that  will  be  produced.    */ 

109  r  =  op_dist_uniform  (1.0); 

110  /*  Integrate  probability  mass  over  possible  outcomes  until  r  is  exceeded.   */ 

111  /*  The  loop  iteratively  corresponds  to  "inverting"  the  CMF  since  it  finds  */ 

112  /*  the  bit  error  count  at  which  the  CMF  first  meets  or  exceeds  the  value  r.     * 

113  for  (p_accum  =  0.0,  num.errs  =  0;  num.errs  <=  seg_size;  num_errs++) 

114  { 

115  /*  Compute  the  probability  of  exactly  'num.errs'  bit  errors  occurring.     * 

116  /*  The  probability  that  the  first  'num.errs'  bits  will  be  in  error        * 

117  /*  is  given  by  pow  (pe,  num.errs).  Here  it  is  obtained  in  logarithmic   */ 

118  /*  form  to  avoid  underflow  for  small  'pe'  or  large  'num. errs. jam' . 

119  log.pl  =  (double)  num.errs  *  log  (pe) ; 
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120  /*  Similarly,  obtain  the  probability  that  the  remaining  bits  sill  not 

121  /*  be  in  error.  The  combination  of  these  two  events  represents  one 

122  /*  possible  configuration  of  bits  yielding  a  total  of  'num_errs'  errors 

123  log_p2  =  (double)  (seg_size  -  num_errs)  *  log  (1.0  -  pe) ; 

124  /*  Compute  the  number  of  arrangements  that  are  possible  with  the  same 

125  /*  number  of  bits  in  error  as  the  particular  case  above.  Again  obtain 

126  /*  this  number  in  logarithmic  form  (to  avoid  overflow  in  this  case) . 

127  /*  This  result  is  expressed  as  the  logarithmic  form  of  the  formula  for 

128  /*  the  number  H  of  combinations  of  k  items  from  n:   I  =  n!/(n-k)!k! 

129  log_arrange  =  log_factorial  (seg.size)  - 

130  log_f actorial  (num_errs)  - 

131  log_factorial  (seg_size  -  num_errs); 

132  /*  Compute  the  probability  that  exactly  'num_errs'  are  present      */ 

133  /*  in  the  segment  of  bits,  in  any  arrangement. 
p_exact  =  exp  (log_arrange  +  log_pl  +  log_p2) ; 
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135  /*  Add  this  to  the  probability  mass  accumulated  so  far  for  previously 

136  /*  tested  outcomes  to  obtain  the  value  of  the  CMF  at  outcome=num_errs*/ 

137  p_accum  +=  p_exact; 


138  /*'num_errs'  is  the  outcome  for  this  trial  if  the  CMF  meets  or  exceeds 

139  /*  the  uniform  random  value  selected  earlier. 

140  if  (p_accum  >=  r) 

141  break; 

142  } 

143  /*  If  the  bit  error  rate  was  inverted  to  compute  correct  bits  instead,  then  * 

144  /*  reinvert  the  result  to  obtain  the  number  of  bits  in  error. 

145  if  (invert.errors  ==  OPC.TRUE) 

146  num_errs  =  seg_size  -  num_errs; 

147  } 

148  /*  printf  ("num_of .errors  =  '/.5d\n",  num_errs);  */ 

149  /*  Set  number  of  bit  errors  in  packet  transmission  data  attribute.  */ 

150  op_td_set_int  (pkptr,  0PC_TDA_PT_NUM_ERR0RS ,  num.errs) ; 

151  F0UT 

152  } 
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APPENDIX  H 

SAMPLE  ENVIRONMENT  FILE  FOR 
PULSED  JAMMER 


#  cdl4_lb0jam0.ef 

#  sample  simulation  configuration  file  for 

#  two  interconnected  10  station  network  in  the 

#  existence  of  pulsed  jammer  interference  (137.088  Mbps  channel  hierarchy  ) 

#  with  circular  allocation  load  balancing  algorithm 

#***  Attributes  related  to  loading  used  by  "fddi.gen"  *** 

#  station  addresses 
.ringO.fO. mac. station. address:  0 
.ringO.f l.mac.station_address:  1 
.ringO.f 2. mac. station. address:  2 
.ring0.f3.mac.station_address:  3 
.ring0.f4.mac.station_address:  4 
.ringO.f 5. mac. station. address:  5 
.ring0.f6.mac.station_address:  6 
.ring0.f7.mac.station_address:  7 
.ringO.f 8. mac. station. address:  8 
.ring0.f9.mac.station_address:  9 

.ringl.fO.mac.station.address:  10 

.ringl.f 1. mac. station. address:  11 

.ringl.f2.mac.station_address:  12 

.ringl.f 3. mac. stat ion. address:  13 

. ringl . f 4 . mac . stat ion. address :  14 

. ringl . f 5 . mac . stat ion. address :  15 

.ringl.f 6. mac. stat ion.addr ess:  16 

.ringl.f 7. mac. stat ion.address:  17 

. ringl . f 8 . mac . stat ion.address :  18 

.ringl.f 9. mac. stat ion. address:  19 


*.ringO.*.mac.ring_id  :0 
♦.ringl.*. mac. ring.id  :1 


#  Specific  stations  may  be  tailored  by  specifying  the  full  name: 

#  for  example,  top.ringO.f 19.11c_src.async_mix  :  .5 

#  This  means  all  stations  must  be  specified,  or  individuals 

#  may  be  named  after  the  generic  is  specified. 

#  destination  addresses  for  random  message  generation 
#"top.ring0.f0.11c_src.low  dest  address"   : 
#"top.ring0.f0.11c_src.high  dest  address"  : 
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"*.ringO.*.llc_src.low  dest  address":  10 

"*.ringO.*.llc_src.high  dest  address":  19 

"*.ringl.*.llc_src.low  dest  address":  0 

"*.ringl.*.llc_src.high  dest  address":  19 
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#  range  of  priority  values  that  can  be  assigned  to  packets;  FDDI 

#  standards  alios  for  8  priorities  of  asynchronous  traffic.   MIL3's 

#  original  model  is  modified  to  alloc  each  station  to  generate  multiple 

#  priorities,  within  a  specified  range. 
M*.*.llc_8rc.high  pkt  priority"  :   7 
"*.*.llc_src.low  pkt  priority"  :   0 


#  arrival  rate (frames/sec) ,  and  message  size  (bits)  for  random  message 

#  generation  at  each  station  on  the  ring. 
"*.*.*. arrival  rate"  :  250 
"*.*.*. mean  pk  length"  :  20000 
#"ring0.f 9.*. arrival  rate":  0 
#"ring0.f9.*.mean  pk  length":  0 
#"ringl.f 9.*. arrival  rate":  0 
#"ringl.f9.*.mean  pk  length":       0 


#  7APR94  -  S.Karayakaylar 

#  determine  which  load  balancing  algorithm  is  in  use  in  the  CPNI 

#  User  should  specify  the  algorithm  before  simulation. 

* 

#  0  (zero)  >  circular  load  balancing  algorithm  (default) 

#  1  (one)   >  empty  allocation  algorithm 

# 

"top.ring0.f9.11c_sink.load  balancing  algorithm":  0 

#  15APR94  : determine  the  station  address  of  the  network  interfaces  in 

#  both  rings . 

#  CPNI 

"top . ringO . f 9 . llc.sink . station.address" :  9 

#  SPNI 

"top . ringl . f 9 . llc.sink . station_address" :  19 

#  12DEC93:  total  offered  load  is  the  sum  of  all  stations'  loads  (Mbps). 

#  Compute  this  by  hand;  this  value  is  useful  for  generating 

#  scalar  plots  where  offered  load  is  the  abscissa. 
total_offered_load_0  :  50 
asynch.off ered_load_0  :                45 
total_offered_load_l  :  50 
asynch_off ered_load_l  :                 45 

#  set  the  proportion  of  asynchronous  traffic 

#  a  value  of  1.0  indicates  all  asynchronous  traffic 
"*.*.*.async_mix"  :   0.9 


#***  Ring  configuration  attributes  used  by  "fddi.mac"  *** 

#  allocate  percentage  of  synchronous  bandwidth  to  each  station 

#  this  value  should  not  exceed  1  for  all  stations  combined;  OPBET  does  not 

#  enforce  this;  01FEB94:  this  must  be  less  than  1;  see  equation  below 
"*.*. mac. sync  bandwidth"  :   0.08955675 
#"top.ring0.f9.mac.sync  bandwidth":      0.0 

#  Target  Token  Rotation  Time  (one  half  of  maximum  synchronous  response  time) 

#  (This  is  commented  out  for  compatibility  with  the  fddi.script,  which 

#  sets  T_Req  on  the  simulation  command  line;  remove  the  comment  pound-sign 

#  below  to  make  this  environment  file  self-sufficient.) 

#  SUM(SAi)  +  D.Max  +  F.Max  +  Token.Time  <=  TTRT 

#  Powers  gives  TTRT  =  10  ms  as  necessary  for  voice  transmission;  in  "BONeS", 

#  D.Max  +  F.Max  +  Token.Time  =  1.97888  ms. 
M*.*.mac.T_Req"  :  .004 


#  Index  of  the  station  which  initially  launches  the  token 

#  17APR94  :  -Karayakaylar 

#  This  index  should  be  greater  than  the  maximum  station  number 

#  Bridge  stations  spawns  token  for  interconnected  simulation  by  default, 
"spawn  station":  20 


#  Delay  incurred  by  packets  as  they  traverse  a  station's  ring  interface 

#  see  Powers,  p.  351  for  a  discussion  of  this  (Powers  gives  lusec, 

#  but  60.0e-08  agrees  with  Dykeman  k   Bux) 
station.latency:  60.0e-08 


#  Propagation  Delay  separating  stations  on  the  ring. 

#  If  propagation  delay  is  5.085  micros ec/km,  this  corresponds  to 

#  to  a  50  station  ring  with  a  circumference  of  50  km. 

#  (The  value  given  for  propagation  delay  corresponds  to  Powers,  and  to 

#  Dykeman  k   Bux) 
prop.delay:  5.085e-06 

#  CDL  link  related  attributes  -Karayakaylar  7APR94 

#  The  attributes  below  are  specified  with  respect  to  the  jammer  type 

#  There  are  two  types  of  jamming  models  which  the  CDL  is  exposed  to. 
* 

#  (1)  Pulsed  jammer  (jammer.type  =  0) 

#  (2)  Channel-swept  jammer   (jammer.type  =  1) 
* 

#  I0TE:For  pulsed  jammer  init.jam.off set  may  be  zero,  whereas  a  proper 

#  offset  should  be  specified  for  channel-swept  jammer. 
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#  jam.length,  jam_ber,  interval_bet_jam_len,  ber_bet_jam_len  are  maximum 

#  values  in  the  case  of  pulsed  jammer  since  they  are  randomized  in  the 

#  error  allocation  pipeline  stage. 

#  For  channel-swept  jammer  only  jam_ber  and  ber_bet_jam_len  attributes  are 

#  maximium  values  to  be  randomized. 

#  return  link  ls_0  to  ls_3 

#  command  link  ls_4 

*.ls_0. jam.length:  0.05 

*.ls_l. jam_length:  0.02 

*. Is _2. jam.length:  0.01 

*.ls_3. jam.length:  0.09 

*. Is _4. jam.length:  0.06 

*.ls_0. jam.ber:  2e-3 

*.ls_l. jam.ber:  2e-3 

*.ls_2. jam.ber:  2e-3 

*.ls_3. jam.ber:  2e-3 

*.ls_4. jam.ber:  0.0 

♦.ls_0.interval_bet_jam.len:  0.03 

♦.ls_l.interval_bet_jam.len:  0.03 

*.ls_2.interval_bet_jam_len:  0.03 

*.ls_3.interval_bet_jam_len:  0.03 

*.ls_4.interval_bet_jam_len:  0.03 

*.ls_0.ber_bet_jam_len:  2e-6 

*.ls_l.ber_bet_jam_len:  2e-6 

*.ls_2.ber_bet_jam_len:  2e-6 

*.ls_3.ber_bet_jam_len:  2e-6 

*.ls_4.ber_bet_jam_len:  0.0 

*.ls_0.init_jam_offset:  0.0 

*.ls_l . init_jam_off set:  0.0 

*.ls_2.init_jam_offset:  0.0 

*.ls_3.init_jam_off set:  0.0 

*.ls_4.init_jam_off set:  0.0 
*.ls_0. jammer_type:  0 
*.ls_l. jammer.type:  0 
*.ls_2. jammer.type:  0 
*.ls_3. jammer.type:  0 
*.ls_4. jammer.type:     0 


#  Return  and  command  link  propagation  delays  are  specified  as  60  msec. 
*.ls_0. delay:     0.06 

*.ls_l. delay:  0.06 
*.ls_2. delay:  0.06 
*.ls_3. delay:  0.06 
*.ls_4. delay:     0.06 

#***  Simulation  related  attributes 

#  Token  Acceleration  Mechanism  enabling  flag. 

#  It  is  reccomended  that  this  mechanism  be  enabled  for  most  situations 

#  16APR94  :  for  bridged  fddi_cdl_interconnection  network  this  flag 

#  must  be  zero.   Otherwise,  program  fault  occurs.  -Karayakaylar 
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accelerate_token:  0 


#  Run  control  attributes 

seed:  10 

duration:   1 

verbose.sim:  TRUE 

upd.int:  .1 

os_file:   cdl4_lb0jam0 

#  (This  is  commented  out  for  compatibility  with  the  fddi.script,  which 

#  sets  the  output  vector  file  on  the  simulation  command  line;  remove  the 

#  comment  pound-sign  below  to  make  this  environment  file  self-sufficient.) 
ov.file:  cdl4_lb0jam0 


#  Opnet  Debugger  (odb)  enabling  attribute 

#  debug:  TRUE 


169 


170 


APPENDIX  I 

SAMPLE  ENVIRONMENT  FILE  EXCERPT 
FOR  CHANNEL-SWEPT  JAMMER 


#  cdl4_lbljaml.ef 

#  sample  simulation  configuration  file  for 

#  two  interconnected  10  station  network  in  the 

#  existence  of  channel-swept  jammer  interference  (137.088  Mbps  channel  hierarchy  ) 

#  with  empty  selection  load  balancing  algorithm 


#  CDL  link  related  attributes  -Karayakaylar  7APR94 

#  The  attributes  below  are  specified  with  respect  to  the  jammer  type 

#  There  are  two  types  of  jamming  models  which  the  CDL  is  exposed  to. 
# 

#  (1)  Pulsed  jammer         (jammer.type  =  0) 

#  (2)  Channel-swept  jammer   (jammer.type  =1) 
# 

#  HOTErFor  pulsed  jammer  init_jam_offset  may  be  zero,  whereas  a  proper 

#  offset  should  be  specified  for  channel-swept  jammer. 

#  jam_length,  jam_ber,  interval_bet_jam_len,  ber_bet_jam_len  are  maximum 

#  values  in  the  case  of  pulsed  jammer  since  they  are  randomized  in  the 

#  error  allocation  pipeline  stage. 

#  For  channel-swept  jammer  only  jam_ber  and  ber_bet_jam_len  attributes  are 

#  maximium  values  to  be  randomized. 

#  return  link  ls_0  to  ls_3 

#  command  link  ls_4 

*.ls_0. jam_length:  0.02 

*.ls_l. jam.length:  0.02 

*.ls_2. jam.length:  0.02 

*.ls_3. jam.length:  0.02 

*.ls_4. jam.length:  0.02 

*.ls_0. jam.ber:  2e-3 

*.ls_l. jam.ber:  2e-3 

*.ls_2. jam.ber:  2e-3 

*.ls_3.jam_ber:  2e-3 

*.ls_4. jam_ber:  0.0 

*.ls_0.interval_bet_jam_len:  0.06 

*.ls_l.interval_bet_jam_len:  0.06 

*.ls_2.interval_bet_jam_len:  0.06 

*.ls_3.interval_bet_jam_len:  0.06 

*.ls_4.interval_bet_jam_len:  0.06 

*.ls_0.ber_bet_jam_len:  2e-6 

*.ls_l.ber_bet_jam_len:  2e-6 
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* . ls_2 . ber_bet_ j  am_len : 
* . ls_3 . ber_bet_ j am_len: 
* . ls_4 . ber_bet_ j  am_len : 
* . ls_0 . init_ jam_of f set : 
* . ls_l . init_jam_of f set : 
* . ls_2 . init_ jam.of f set : 
* . ls_3 . init_ jam_of f  set : 
* .  ls_4 .  init_ jam_of f set : 
* . ls_0 . jammer.type : 
* .  ls_l .  jammer_type : 
* .  ls_2 .  januner.type : 
* . ls_3 . j  ammer_t ype : 
* . ls_4 . j  ammer_type : 


2e-6 

2e-6 

0.0 

0.0 

0.02 

0.04 

0.06 

0.0 
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